summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2017-03-22 10:26:20 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2017-03-22 10:26:20 (GMT)
commitf544ca9012f54c92d4f16cfe372e86e384d9a7c1 (patch)
tree7f84d6791c9f47865c45de2554c157957dbefbb8
parent8d4099cddc1f9152244687f2d3479024ab3e1db8 (diff)
downloadtk-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.test8
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