From 0d3be39618038448f3387fb51a63b0e29070d0a1 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 11 Nov 2013 08:38:27 +0000
Subject: Add test-case for bug [f214b8ad5b], in order to prove that Tk 8.5
 doesn't suffer.

---
 tests/font.test | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/tests/font.test b/tests/font.test
index 82af541..c7574d7 100644
--- a/tests/font.test
+++ b/tests/font.test
@@ -1380,6 +1380,17 @@ setup
 
 destroy .b
 
+test font-47.1 {Bug f214b8ad5b} -body {
+    interp create one
+    interp create two
+    load {} Tk one
+    load {} Tk two
+    one eval menu .menubar
+    two eval menu .menubar
+    interp delete one
+    interp delete two
+} -result {}
+
 # cleanup
 cleanupTests
 return
-- 
cgit v0.12