diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-03-22 10:26:20 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-03-22 10:26:20 (GMT) |
| commit | f544ca9012f54c92d4f16cfe372e86e384d9a7c1 (patch) | |
| tree | 7f84d6791c9f47865c45de2554c157957dbefbb8 | |
| parent | 8d4099cddc1f9152244687f2d3479024ab3e1db8 (diff) | |
| download | tk-f544ca9012f54c92d4f16cfe372e86e384d9a7c1.zip tk-f544ca9012f54c92d4f16cfe372e86e384d9a7c1.tar.gz tk-f544ca9012f54c92d4f16cfe372e86e384d9a7c1.tar.bz2 | |
Fix test-case safe-1.2. Failure introduced by commit [https://core.tcl.tk/tcl/info/b82ff15ca653495e|b82ff15ca6] in Tcl
| -rw-r--r-- | tests/safe.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/safe.test b/tests/safe.test index 69a67ba..475d938 100644 --- a/tests/safe.test +++ b/tests/safe.test @@ -15,7 +15,7 @@ namespace import -force tcltest::test # Can't find a usable tk.tcl in the following directories: # {$p(:26:)} -# +# # $p(:26:)/tk.tcl: script error # script error # invoked from within @@ -23,8 +23,8 @@ namespace import -force tcltest::test # ("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. @@ -33,7 +33,7 @@ namespace import -force tcltest::test # The set of hidden commands is platform dependent: -set hidden_cmds {bell cd clipboard encoding exec exit fconfigure glob grab load menu open pwd selection socket source toplevel unload wm} +set hidden_cmds {bell cd clipboard encoding exec exit fconfigure glob grab load menu open pwd selection socket source tcl:encoding:dirs toplevel unload wm} lappend hidden_cmds {*}[apply {{} { foreach cmd { atime attributes copy delete dirname executable exists extension |