From df4bb46457b5bac4affd01926df6a2fb61bc7d19 Mon Sep 17 00:00:00 2001 From: Serhiy Storchaka Date: Thu, 7 Feb 2013 15:40:03 +0200 Subject: Issue #17118: Add new tests for testing Python-Tcl interaction. --- Lib/test/test_tcl.py | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/Lib/test/test_tcl.py b/Lib/test/test_tcl.py index d86246c..d38c0b5 100644 --- a/Lib/test/test_tcl.py +++ b/Lib/test/test_tcl.py @@ -151,6 +151,26 @@ class TclTest(unittest.TestCase): # exit code must be zero self.assertEqual(f.close(), None) + def test_passing_values(self): + def passValue(value): + return self.interp.call('set', '_', value) + + self.assertEqual(passValue(True), True) + self.assertEqual(passValue(False), False) + self.assertEqual(passValue('string'), 'string') + self.assertEqual(passValue('string\u20ac'), 'string\u20ac') + for i in (0, 1, -1, 2**31-1, -2**31): + self.assertEqual(passValue(i), i) + for f in (0.0, 1.0, -1.0, 1/3, + sys.float_info.min, sys.float_info.max, + -sys.float_info.min, -sys.float_info.max): + self.assertEqual(passValue(f), f) + for f in float('nan'), float('inf'), -float('inf'): + if f != f: # NaN + self.assertNotEqual(passValue(f), f) + else: + self.assertEqual(passValue(f), f) + self.assertEqual(passValue((1, '2', (3.4,))), (1, '2', (3.4,))) def test_main(): -- cgit v0.12