diff options
| author | kjnash <k.j.nash@usa.net> | 2020-08-28 02:27:36 (GMT) |
|---|---|---|
| committer | kjnash <k.j.nash@usa.net> | 2020-08-28 02:27:36 (GMT) |
| commit | 230aa0cc4b8b1e9a50c0e2d505dde9c38a1e9d1b (patch) | |
| tree | 31f0f2b36ea4a3a4ff4513bdb48684264414dd82 /tests/safe.test | |
| parent | bba42d0251c44fb8d13efa3b72c1b443dab6063f (diff) | |
| parent | de01488d552554c385f9e2b1f831eae5ac97c336 (diff) | |
| download | tcl-230aa0cc4b8b1e9a50c0e2d505dde9c38a1e9d1b.zip tcl-230aa0cc4b8b1e9a50c0e2d505dde9c38a1e9d1b.tar.gz tcl-230aa0cc4b8b1e9a50c0e2d505dde9c38a1e9d1b.tar.bz2 | |
Merge safe-extra-tests-8-7
Diffstat (limited to 'tests/safe.test')
| -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 81e08f2..e3ff7f5 100644 --- a/tests/safe.test +++ b/tests/safe.test @@ -1368,7 +1368,7 @@ test safe-10.1 {testing statics loading} -constraints TcltestPackage -setup { interp eval $i {load {} Safepkg1} } -returnCodes error -cleanup { safe::interpDelete $i -} -result {can't use package in a safe interpreter: no Safepkg1_SafeInit procedure} +} -result {load of binary library for package Safepkg1 failed: can't use package in a safe interpreter: no Safepkg1_SafeInit procedure} test safe-10.1.1 {testing statics loading} -constraints TcltestPackage -setup { set i [safe::interpCreate] } -body { @@ -1377,7 +1377,7 @@ test safe-10.1.1 {testing statics loading} -constraints TcltestPackage -setup { } -returnCodes ok -cleanup { unset -nocomplain m o safe::interpDelete $i -} -result {can't use package in a safe interpreter: no Safepkg1_SafeInit procedure +} -result {load of binary library for package Safepkg1 failed: can't use package in a safe interpreter: no Safepkg1_SafeInit procedure invoked from within "load {} Safepkg1" invoked from within @@ -1400,7 +1400,7 @@ test safe-10.4 {testing nested statics loading / -nestedloadok} -constraints Tcl interp eval $i {interp create x; load {} Safepkg1 x} } -returnCodes error -cleanup { safe::interpDelete $i -} -result {can't use package in a safe interpreter: no Safepkg1_SafeInit procedure} +} -result {load of binary library for package Safepkg1 failed: can't use package in a safe interpreter: no Safepkg1_SafeInit procedure} test safe-10.4.1 {testing nested statics loading / -nestedloadok} -constraints TcltestPackage -body { set i [safe::interpCreate -nestedloadok] catch {interp eval $i {interp create x; load {} Safepkg1 x}} m o @@ -1408,7 +1408,7 @@ test safe-10.4.1 {testing nested statics loading / -nestedloadok} -constraints T } -returnCodes ok -cleanup { unset -nocomplain m o safe::interpDelete $i -} -result {can't use package in a safe interpreter: no Safepkg1_SafeInit procedure +} -result {load of binary library for package Safepkg1 failed: can't use package in a safe interpreter: no Safepkg1_SafeInit procedure invoked from within "load {} Safepkg1 x" invoked from within |