diff options
| -rw-r--r-- | tests/fCmd.test | 4 | ||||
| -rw-r--r-- | tests/safe.test | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/tests/fCmd.test b/tests/fCmd.test index 00e442a..8b2dff1 100644 --- a/tests/fCmd.test +++ b/tests/fCmd.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: fCmd.test,v 1.53 2006/03/21 11:12:29 dkf Exp $ +# RCS: @(#) $Id: fCmd.test,v 1.54 2006/03/21 14:34:11 dgp Exp $ # if {[lsearch [namespace children] ::tcltest] == -1} { @@ -27,7 +27,7 @@ testConstraint 2000orNewer [expr {![testConstraint 95or98]}] # Find a group that exists on this Unix system, or else skip tests that # require Unix groups. -testConstraint foundGroup [expr {![textConstraint unix]}] +testConstraint foundGroup [expr {![testConstraint unix]}] if {[testConstraint unix]} { catch { set groupList [exec groups] diff --git a/tests/safe.test b/tests/safe.test index 9324398..2c6218b 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.20 2006/03/21 11:12:29 dkf Exp $ +# RCS: @(#) $Id: safe.test,v 1.21 2006/03/21 14:35:26 dgp Exp $ package require Tcl 8.5 @@ -168,7 +168,7 @@ proc SafeEval {script} { } test safe-6.1 {test safe interpreters knowledge of the world} { - lsort [SaveEval {info globals}] + lsort [SafeEval {info globals}] } {tcl_interactive tcl_patchLevel tcl_platform tcl_version} test safe-6.2 {test safe interpreters knowledge of the world} { SafeEval {info script} |