summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-11-05 21:06:39 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-11-05 21:06:39 (GMT)
commitfebf16788baf39f348938e62776f7e3b60edfde6 (patch)
tree69913e41f94bc62345197a56535c14c1685ac031
parentb25cb2a04a6f9760b1704338a1174ff474eed50e (diff)
downloadtk-febf16788baf39f348938e62776f7e3b60edfde6.zip
tk-febf16788baf39f348938e62776f7e3b60edfde6.tar.gz
tk-febf16788baf39f348938e62776f7e3b60edfde6.tar.bz2
New test font-47.1 demonstrates effectiveness of the fix.
-rw-r--r--tests/font.test10
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/font.test b/tests/font.test
index 33e411a..a07e391 100644
--- a/tests/font.test
+++ b/tests/font.test
@@ -2345,6 +2345,16 @@ test font-46.5 {font actual, too many chars} -body {
font actual {times 10} 123456789012345678901234567890123456789012345678901
} -returnCodes error -result {expected a single character but got "1234567890123456789012345678901234567..."}
+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