diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-30 09:45:02 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-30 09:45:02 (GMT) |
| commit | e883cc84772de84b5cbb175808ecad82d5112a04 (patch) | |
| tree | 52874222c59ea25bb58cec5e549b3e3ebc45cfe0 | |
| parent | a22fd911c4fcdbc6c92423c582245a607610456c (diff) | |
| download | tk-e883cc84772de84b5cbb175808ecad82d5112a04.zip tk-e883cc84772de84b5cbb175808ecad82d5112a04.tar.gz tk-e883cc84772de84b5cbb175808ecad82d5112a04.tar.bz2 | |
Fix safe-1.2 testcase when running Tcl version < 8.6.7 (That's when tcl:encoding:dirs became hidden)
| -rw-r--r-- | tests/safe.test | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/safe.test b/tests/safe.test index 5a2cd26..3a3b029 100644 --- a/tests/safe.test +++ b/tests/safe.test @@ -35,7 +35,10 @@ namespace import -force tcltest::test set hidden_cmds [list bell cd clipboard encoding exec exit \ fconfigure glob grab load menu open pwd selection \ - socket source tcl:encoding:dirs toplevel unload wm] + socket source toplevel unload wm] +if {[package vsatisfies [package provide Tcl] 8.6.7-]} { + lappend hidden_cmds tcl:encoding:dirs +} if {[package vsatisfies [package provide Tcl] 8.7-]} { lappend hidden_cmds file tcl:encoding:system tcl:file:tempdir foreach cmd { |