diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2009-12-29 14:55:42 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2009-12-29 14:55:42 (GMT) |
commit | f529e237b5116ef60425a6cd231f88167ff6bf05 (patch) | |
tree | 3a75da09f1e7e848542384d80a279925e2ee7d74 /tests/safe.test | |
parent | 59172cf14f46e7f765d6bcce585b735629d1873f (diff) | |
download | tcl-f529e237b5116ef60425a6cd231f88167ff6bf05.zip tcl-f529e237b5116ef60425a6cd231f88167ff6bf05.tar.gz tcl-f529e237b5116ef60425a6cd231f88167ff6bf05.tar.bz2 |
[Bug 2895741]: Make min() and max() supported in safe interpreters.
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} |