diff options
| author | fvogel <fvogelnew1@free.fr> | 2017-03-26 13:16:37 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2017-03-26 13:16:37 (GMT) |
| commit | 2fee50e1e568b4542d831989ccac2946a744da3b (patch) | |
| tree | ae9bce56f15127e87d91dd60d4e9c404f0452fd3 /tests | |
| parent | 046813684f5fcdd4764db7fc53922266d6eb1586 (diff) | |
| parent | f544ca9012f54c92d4f16cfe372e86e384d9a7c1 (diff) | |
| download | tk-tip_464.zip tk-tip_464.tar.gz tk-tip_464.tar.bz2 | |
merge core-8-6-branchtip_464
Diffstat (limited to 'tests')
| -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 |