[3.11] gh-104411: Update test_getint for Tcl 9.0 (GH-104412) (#105357)

gh-104411: Update test_getint for Tcl 9.0 (GH-104412)
(cherry picked from commit 2c49c75)

Co-authored-by: Christopher Chavez <[email protected]>

Author: miss-islington

Lib/test/test_tcl.py

@@ -145,7 +145,10 @@ def test_getint(self):
         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)