summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/fCmd.test4
-rw-r--r--tests/safe.test4
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}