diff options
author | dgp <dgp@users.sourceforge.net> | 2018-06-12 17:10:03 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2018-06-12 17:10:03 (GMT) |
commit | 9c8f784329bdeba62d3712e5cb258bb291cec67f (patch) | |
tree | 33507037b60ebdc8b9c5f048740f0358a9b51089 /tests | |
parent | ac47e6953d5c9a8916296ab9f382bf914a56324b (diff) | |
download | tcl-9c8f784329bdeba62d3712e5cb258bb291cec67f.zip tcl-9c8f784329bdeba62d3712e5cb258bb291cec67f.tar.gz tcl-9c8f784329bdeba62d3712e5cb258bb291cec67f.tar.bz2 |
[860a9f1945] Remove test safe-8.8; Mac OS 9 tests are no longer useful.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/safe.test | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/tests/safe.test b/tests/safe.test index 5bed5ff..00a9472 100644 --- a/tests/safe.test +++ b/tests/safe.test @@ -290,14 +290,10 @@ test safe-8.7 {safe source control on file} { [safe::setLogCmd $prevlog; unset log] \ [safe::interpDelete $i] ; } [list 1 {no such file or directory} [list "ERROR for slave a : [file join [info library] xxxxxxxxxxx.tcl]:no such file or directory"] {} {}] -test safe-8.8 {safe source forbids -rsrc} { - set i "a"; - catch {safe::interpDelete $i} - safe::interpCreate $i; - list [catch {$i eval {source -rsrc Init}} msg] \ - $msg \ - [safe::interpDelete $i] ; -} {1 {wrong # args: should be "source ?-encoding E? fileName"} {}} +test safe-8.8 {safe source forbids -rsrc} emptyTest { + # Disabled this test. It was only useful for long unsupported + # Mac OS 9 systems. [Bug 860a9f1945] +} {} test safe-8.9 {safe source and return} -setup { set returnScript [makeFile {return "ok"} return.tcl] catch {safe::interpDelete $i} |