diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-11-27 13:52:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-11-27 13:52:18 (GMT) |
| commit | 20dedcd841ef5caf05a104ccd36929080f8a5645 (patch) | |
| tree | 44f9e975d9068cba3021285b92e9778bccf3a160 | |
| parent | 811ec68434e9a83c37f1a0fd3ef0a8cae5baac91 (diff) | |
| download | tcl-20dedcd841ef5caf05a104ccd36929080f8a5645.zip tcl-20dedcd841ef5caf05a104ccd36929080f8a5645.tar.gz tcl-20dedcd841ef5caf05a104ccd36929080f8a5645.tar.bz2 | |
Fix test-cases in safe.test, failing due to changes in min/max math functions.
| -rw-r--r-- | generic/tclInterp.c | 4 | ||||
| -rw-r--r-- | tests/safe.test | 2 |
2 files changed, 1 insertions, 5 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index d9dfd37..d4bf465 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -3208,10 +3208,6 @@ Tcl_MakeSafe( (void) Tcl_EvalEx(interp, "namespace eval ::tcl {namespace eval mathfunc {}}", -1, 0); - (void) Tcl_CreateAlias(interp, "::tcl::mathfunc::min", master, - "::tcl::mathfunc::min", 0, NULL); - (void) Tcl_CreateAlias(interp, "::tcl::mathfunc::max", master, - "::tcl::mathfunc::max", 0, NULL); } iPtr->flags |= SAFE_INTERP; diff --git a/tests/safe.test b/tests/safe.test index e43ce12..33ee166 100644 --- a/tests/safe.test +++ b/tests/safe.test @@ -74,7 +74,7 @@ test safe-2.3 {creating safe interpreters, should have no unexpected aliases} -s lsort [a aliases] } -cleanup { interp delete a -} -result {::tcl::mathfunc::max ::tcl::mathfunc::min clock} +} -result {clock} test safe-3.1 {calling safe::interpInit is safe} -setup { catch {safe::interpDelete a} |