diff options
Diffstat (limited to 'tests/safe.test')
-rw-r--r-- | tests/safe.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/safe.test b/tests/safe.test index c58c7b7..223559a 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.30 2009/12/28 12:50:43 dkf Exp $ +# RCS: @(#) $Id: safe.test,v 1.31 2009/12/29 14:55:42 dkf Exp $ package require Tcl 8.5 @@ -70,10 +70,10 @@ test safe-2.3 {creating safe interpreters, should have no unexpected aliases} -s catch {safe::interpDelete a} } -body { interp create a -safe - a aliases + lsort [a aliases] } -cleanup { interp delete a -} -result {clock} +} -result {::tcl::mathfunc::max ::tcl::mathfunc::min clock} test safe-3.1 {calling safe::interpInit is safe} -setup { catch {safe::interpDelete a} |