gh-104411: Update test_getint for Tcl 9.0 (GH-104412)

This commit is contained in:
Christopher Chavez 2023-06-06 05:01:22 -05:00 committed by GitHub
parent 8ddf0dd264
commit 2c49c759e8
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 1 deletions

View File

@ -142,7 +142,10 @@ class TclTest(unittest.TestCase):
for i in self.get_integers():
self.assertEqual(tcl.getint(' %d ' % i), i)
self.assertEqual(tcl.getint(' %#o ' % i), i)
self.assertEqual(tcl.getint((' %#o ' % i).replace('o', '')), i)
# Numbers starting with 0 are parsed as decimal in Tcl 9.0
# and as octal in older versions.
self.assertEqual(tcl.getint((' %#o ' % i).replace('o', '')),
i if tcl_version < (9, 0) else int('%o' % i))
self.assertEqual(tcl.getint(' %#x ' % i), i)
self.assertEqual(tcl.getint(42), 42)
self.assertRaises(TypeError, tcl.getint)