diff options
author | dgp <dgp@users.sourceforge.net> | 2004-04-02 17:39:23 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2004-04-02 17:39:23 (GMT) |
commit | fc4ff182f4ebaba3598eacfb7b81a2837f710580 (patch) | |
tree | 69e98d8522cb783bf80f8eabf7267953c4d0ebb3 | |
parent | 27525dfcf2fa08c8e0bbf04749dc9e2ef9782f63 (diff) | |
download | tcl-fc4ff182f4ebaba3598eacfb7b81a2837f710580.zip tcl-fc4ff182f4ebaba3598eacfb7b81a2837f710580.tar.gz tcl-fc4ff182f4ebaba3598eacfb7b81a2837f710580.tar.bz2 |
* tests/tcltest.test: Corrected constraint typos: "nonRoot" ->
"notRoot". [Bug 928353]
-rw-r--r-- | ChangeLog | 5 | ||||
-rwxr-xr-x | tests/tcltest.test | 8 |
2 files changed, 9 insertions, 4 deletions
@@ -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} |