diff options
| author | hobbs <hobbs> | 2001-03-31 05:46:10 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-03-31 05:46:10 (GMT) |
| commit | 09e0c9f40ad5820cfb05bed697dcc58ce136b7b9 (patch) | |
| tree | 08e7650625e80cb346429c6927665e41fbe6156e /tests/safe.test | |
| parent | 739d4321a3b8dd6e1073ecb19aa5b09eb5893571 (diff) | |
| download | tk-09e0c9f40ad5820cfb05bed697dcc58ce136b7b9.zip tk-09e0c9f40ad5820cfb05bed697dcc58ce136b7b9.tar.gz tk-09e0c9f40ad5820cfb05bed697dcc58ce136b7b9.tar.bz2 | |
* tests/safe.test: added note about correcting failures in
safe.test.
* library/tk.tcl: moved package require msgcat inside if case to
not be used in safe interps.
Diffstat (limited to 'tests/safe.test')
| -rw-r--r-- | tests/safe.test | 35 |
1 files changed, 21 insertions, 14 deletions
diff --git a/tests/safe.test b/tests/safe.test index b791811..bf1b945 100644 --- a/tests/safe.test +++ b/tests/safe.test @@ -6,12 +6,32 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: safe.test,v 1.6 1999/12/14 06:53:13 hobbs Exp $ +# RCS: @(#) $Id: safe.test,v 1.7 2001/03/31 05:46:10 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] } +## NOTE: Any time tests fail here with an error like: + +# Can't find a usable tk.tcl in the following directories: +# {$p(:26:)} +# +# $p(:26:)/tk.tcl: script error +# script error +# invoked from within +# "source {$p(:26:)/tk.tcl}" +# ("uplevel" body line 1) +# invoked from within +# "uplevel #0 [list source $file]" +# +# +# This probably means that tk wasn't installed properly. + +## it indicates that something went wrong sourcing tk.tcl. +## Ensure that any changes that occured to tk.tcl will work or +## are properly prevented in a safe interpreter. -- hobbs + foreach i [winfo children .] { destroy $i } @@ -176,16 +196,3 @@ test safe-7.1 {canvas printing} { unset hidden_cmds ::tcltest::cleanupTests return - - - - - - - - - - - - - |