Print Tk patchlevel in test_tcl in verbose mode (issue19654).

diff --git a/Lib/test/test_tcl.py b/Lib/test/test_tcl.py
index cf1fcf98125ce5de6594b633a7ca890189a41504..4cf3f2884152db7dfae45d7d050a9e71149bdb06 100644 (file)
--- a/Lib/test/test_tcl.py
+++ b/Lib/test/test_tcl.py
@@ -302,6 +302,12 @@ class BigmemTclTest(unittest.TestCase):
         self.assertRaises(OverflowError, self.interp.call, 'set', '_', value)
 
 
+def setUpModule():
+    if support.verbose:
+        tcl = Tcl()
+        print('patchlevel =', tcl.call('info', 'patchlevel'))
+
+
 def test_main():
     support.run_unittest(TclTest, TkinterTest, BigmemTclTest)