summaryrefslogtreecommitdiffstats
path: root/tests/safe.test
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2009-12-09 22:34:19 (GMT)
committerandreas_kupries <akupries@shaw.ca>2009-12-09 22:34:19 (GMT)
commit9e23933ebaeeedb220119fe64bba632844968d12 (patch)
tree0110d4772ac87caaf40b2c006417e38392914e11 /tests/safe.test
parentb77de51584ea07a878656e5d88b87914d46c507e (diff)
downloadtcl-9e23933ebaeeedb220119fe64bba632844968d12.zip
tcl-9e23933ebaeeedb220119fe64bba632844968d12.tar.gz
tcl-9e23933ebaeeedb220119fe64bba632844968d12.tar.bz2
* library/safe.tcl: Backport of the streamlined safe base from
* tests/safe.test: head to the 8.5 branch (See head changelog entries 2009-11-05, 2009-11-06, 2009-12-03).
Diffstat (limited to 'tests/safe.test')
-rw-r--r--tests/safe.test22
1 files changed, 3 insertions, 19 deletions
diff --git a/tests/safe.test b/tests/safe.test
index 8f1334a..ccaae26 100644
--- a/tests/safe.test
+++ b/tests/safe.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: safe.test,v 1.22.4.1 2008/06/25 17:16:30 dgp Exp $
+# RCS: @(#) $Id: safe.test,v 1.22.4.2 2009/12/09 22:34:20 andreas_kupries Exp $
package require Tcl 8.5
@@ -117,23 +117,7 @@ test safe-4.2 {safe::interpDelete, indirectly} {
a alias exit safe::interpDelete a
a eval exit
} ""
-test safe-4.3 {safe::interpDelete, state array (not a public api)} {
- catch {safe::interpDelete a}
- namespace eval safe {set [InterpStateName a](foo) 33}
- # not an error anymore to call it if interp is already
- # deleted, to make trhings smooth if it's called twice...
- catch {safe::interpDelete a} m1
- catch {namespace eval safe {set [InterpStateName a](foo)}} m2
- list $m1 $m2
-} "{}\
- {can't read \"[safe::InterpStateName a](foo)\": no such variable}"
-test safe-4.4 {safe::interpDelete, state array, indirectly (not a public api)} {
- catch {safe::interpDelete a}
- safe::interpCreate a
- namespace eval safe {set [InterpStateName a](foo) 33}
- a eval exit
- catch {namespace eval safe {set [InterpStateName a](foo)}} msg
-} 1
+
test safe-4.5 {safe::interpDelete} {
catch {safe::interpDelete a}
safe::interpCreate a
@@ -428,7 +412,7 @@ test safe-11.1 {testing safe encoding} {
[catch {interp eval $i encoding} msg] \
$msg \
[safe::interpDelete $i];
-} {1 {wrong # args: should be "encoding option ?arg ...?"} {}}
+} {1 {wrong # args: should be "encoding option ..."} {}}
test safe-11.2 {testing safe encoding} {
set i [safe::interpCreate]
list \