summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-04-02 17:39:23 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-04-02 17:39:23 (GMT)
commitfc4ff182f4ebaba3598eacfb7b81a2837f710580 (patch)
tree69e98d8522cb783bf80f8eabf7267953c4d0ebb3
parent27525dfcf2fa08c8e0bbf04749dc9e2ef9782f63 (diff)
downloadtcl-fc4ff182f4ebaba3598eacfb7b81a2837f710580.zip
tcl-fc4ff182f4ebaba3598eacfb7b81a2837f710580.tar.gz
tcl-fc4ff182f4ebaba3598eacfb7b81a2837f710580.tar.bz2
* tests/tcltest.test: Corrected constraint typos: "nonRoot" ->
"notRoot". [Bug 928353]
-rw-r--r--ChangeLog5
-rwxr-xr-xtests/tcltest.test8
2 files changed, 9 insertions, 4 deletions
diff --git a/ChangeLog b/ChangeLog
index f830d7b..0104933 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-04-02 Don Porter <dgp@users.sourceforge.net>
+
+ * tests/tcltest.test: Corrected constraint typos: "nonRoot" ->
+ "notRoot". [Bug 928353]
+
2004-04-01 Don Porter <dgp@users.sourceforge.net>
* generic/tclInt.h: Removed obsolete tclBlockTime* declarations.
diff --git a/tests/tcltest.test b/tests/tcltest.test
index 79b9869..9d0a03c 100755
--- a/tests/tcltest.test
+++ b/tests/tcltest.test
@@ -6,7 +6,7 @@
# Copyright (c) 2000 by Ajuba Solutions
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.test,v 1.39 2004/03/17 19:29:43 dgp Exp $
+# RCS: @(#) $Id: tcltest.test,v 1.40 2004/04/02 17:39:24 dgp Exp $
# Note that there are several places where the value of
# tcltest::currentFailure is stored/reset in the -setup/-cleanup
@@ -563,12 +563,12 @@ switch $tcl_platform(platform) {
}
}
-test tcltest-8.3 {tcltest a.tcl -tmpdir notReadableDir} {unixOnly nonRoot} {
+test tcltest-8.3 {tcltest a.tcl -tmpdir notReadableDir} {unixOnly notRoot} {
slave msg $a -tmpdir $notReadableDir
string match {*not readable*} $msg
} {1}
-test tcltest-8.4 {tcltest a.tcl -tmpdir notWriteableDir} {unixOrPc nonRoot} {
+test tcltest-8.4 {tcltest a.tcl -tmpdir notWriteableDir} {unixOrPc notRoot} {
slave msg $a -tmpdir $notWriteableDir
string match {*not writeable*} $msg
} {1}
@@ -623,7 +623,7 @@ test tcltest-8.11 {tcltest a.tcl -testdir thisdirectoryisafile} {unixOrPc} {
string match "*not a directory*" $msg
} {1}
-test tcltest-8.12 {tcltest a.tcl -testdir notReadableDir} {unixOnly nonRoot} {
+test tcltest-8.12 {tcltest a.tcl -testdir notReadableDir} {unixOnly notRoot} {
slave msg $a -testdir $notReadableDir
string match {*not readable*} $msg
} {1}