From a6c67b56b238819215886dc2ead14787a44928ae Mon Sep 17 00:00:00 2001
From: Thomas Wouters <thomas@python.org>
Date: Mon, 24 Apr 2006 11:37:13 +0000
Subject: [PATCH] Stop test_tcl's testLoadTk from leaking the Tk commands
 'loadtk' registers.

---
 Lib/test/test_tcl.py | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Lib/test/test_tcl.py b/Lib/test/test_tcl.py
index 2eeabc1bf8..e3fbf98eb7 100644
--- 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
-- 
2.40.0