Stop test_tcl's testLoadTk from leaking the Tk commands 'loadtk' registers.

diff --git a/Lib/test/test_tcl.py b/Lib/test/test_tcl.py
index 2eeabc1bf851db93198c632097c79b27665f06e9..e3fbf98eb7510d7b1f93c90c7617d7801762ad49 100644 (file)
--- a/Lib/test/test_tcl.py
+++ b/Lib/test/test_tcl.py
@@ -124,6 +124,7 @@ class TclTest(unittest.TestCase):
         self.assertRaises(TclError,tcl.winfo_geometry)
         tcl.loadtk()
         self.assertEqual('1x1+0+0', tcl.winfo_geometry())
+        tcl.destroy()
 
     def testLoadTkFailure(self):
         import os