From 4b730161fde1965796ffefdbdd5601369e5c10c2 Mon Sep 17 00:00:00 2001
From: Serhiy Storchaka <storchaka@gmail.com>
Date: Thu, 23 Jan 2014 09:44:05 +0200
Subject: [PATCH] Added test_user_command in test_tcl.

It tests the convertion Tcl values to Python values when Tcl calls a command
implemented on Python. Currently all values are passed as strings.
---
 Lib/test/test_tcl.py | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/Lib/test/test_tcl.py b/Lib/test/test_tcl.py
index ad17ee95d3..06f464664a 100644
--- a/Lib/test/test_tcl.py
+++ b/Lib/test/test_tcl.py
@@ -192,6 +192,34 @@ class TclTest(unittest.TestCase):
         self.assertEqual(passValue((1, '2', (3.4,))),
                          (1, '2', (3.4,)) if self.wantobjects else '1 2 3.4')
 
+    def test_user_command(self):
+        result = None
+        def testfunc(arg):
+            nonlocal result
+            result = arg
+            return arg
+        self.interp.createcommand('testfunc', testfunc)
+        def check(value, expected):
+            self.assertEqual(self.interp.call('testfunc', value), expected)
+            self.assertEqual(result, expected)
+
+        check(True, '1')
+        check(False, '0')
+        check('string', 'string')
+        check('string\xbd', 'string\xbd')
+        check('string\u20ac', 'string\u20ac')
+        for i in (0, 1, -1, 2**31-1, -2**31):
+            check(i, str(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):
+            check(f, str(f))
+        check(float('nan'), 'NaN')
+        check(float('inf'), 'Inf')
+        check(-float('inf'), '-Inf')
+        check((), '')
+        check((1, (2,), (3, 4), '5 6', ()), '1 2 {3 4} {5 6} {}')
+
     def test_splitlist(self):
         splitlist = self.interp.tk.splitlist
         call = self.interp.tk.call
-- 
2.40.0