From: Serhiy Storchaka <storchaka@gmail.com>
Date: Wed, 20 Nov 2013 15:43:49 +0000 (+0200)
Subject: Print Tk patchlevel in test_tcl in verbose mode (issue19654).
X-Git-Tag: v3.4.0b1~159^2
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=8db1823cf7963f5a8557eb840a20248bd18f658a;p=thirdparty%2FPython%2Fcpython.git

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 cf1fcf98125c..4cf3f2884152 100644
--- 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)