summaryrefslogtreecommitdiffstats
path: root/tests/safe.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/safe.test')
-rw-r--r--tests/safe.test13
1 files changed, 10 insertions, 3 deletions
diff --git a/tests/safe.test b/tests/safe.test
index 90873f0..1a1970b 100644
--- a/tests/safe.test
+++ b/tests/safe.test
@@ -7,13 +7,14 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: safe.test,v 1.3 1998/09/14 18:23:49 stanton Exp $
+# RCS: @(#) $Id: safe.test,v 1.4 1999/04/16 01:25:55 stanton Exp $
if {[info procs test] != "test"} {
source defs
}
foreach i [winfo children .] {
+ puts "*** Destroying $i ***"; update idletasks
destroy $i
}
@@ -26,6 +27,7 @@ if {"$tcl_platform(platform)" == "macintosh"} {
} else {
set hidden_cmds {bell cd clipboard exec exit fconfigure file glob grab load menu open pwd selection send socket source tk tk_chooseColor tk_getOpenFile tk_getSaveFile tk_messageBox toplevel wm}
}
+puts "About to do 1"
test safe-1.1 {Safe Tk loading into an interpreter} {
catch {safe::interpDelete a}
@@ -97,7 +99,12 @@ test safe-3.2 {Unsafe commands are available hidden} {
set status
} ok
-test safe-4.1 {testing loadTk} {
+# This test gets a panic on the Mac in Tk8.0.5. It did not in 8.0.4,
+# and it also does not if you update before deleting. This is just
+# revealing the weakness in the link between the container list and the
+# ports for the windows. The same comment applies to safe-5.2
+
+test safe-4.1 {testing loadTk} {unixOrPc} {
# no error shall occur, the user will
# eventually see a new toplevel
set i [safe::loadTk [safe::interpCreate]]
@@ -126,7 +133,7 @@ test safe-5.1 {loading Tk in safe interps without master's clearance} {
set msg
} {not allowed to start Tk by master's safe::TkInit}
-test safe-5.2 {multi-level Tk loading with clearance} {
+test safe-5.2 {multi-level Tk loading with clearance} {unixOrPc} {
# No error shall occur in that test and no window
# shall remain at the end.
set i [safe::interpCreate]