summaryrefslogtreecommitdiffstats
path: root/tests/safe.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2009-12-29 14:55:42 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2009-12-29 14:55:42 (GMT)
commitf529e237b5116ef60425a6cd231f88167ff6bf05 (patch)
tree3a75da09f1e7e848542384d80a279925e2ee7d74 /tests/safe.test
parent59172cf14f46e7f765d6bcce585b735629d1873f (diff)
downloadtcl-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.test6
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}