diff options
author | dgp <dgp@noemail.net> | 2004-04-02 17:39:05 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2004-04-02 17:39:05 (GMT) |
commit | 8fd62e957e415cdbfedc0c2aef1e2727119a9ddd (patch) | |
tree | adcda5b5e3c1e4f0f502583b317965f155337b1e /tests/tcltest.test | |
parent | 8faab52a64474f74f1cd7f972512a016d76ef1e9 (diff) | |
download | tcl-8fd62e957e415cdbfedc0c2aef1e2727119a9ddd.zip tcl-8fd62e957e415cdbfedc0c2aef1e2727119a9ddd.tar.gz tcl-8fd62e957e415cdbfedc0c2aef1e2727119a9ddd.tar.bz2 |
* tests/tcltest.test: Corrected constraint typos: "nonRoot" ->
"notRoot". [Bug 928353]
FossilOrigin-Name: 652c510f4aac2e7eccef3fc77bf7dd3e05ae48d2
Diffstat (limited to 'tests/tcltest.test')
-rwxr-xr-x | tests/tcltest.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/tcltest.test b/tests/tcltest.test index 09f713d..2413cca 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.37 2003/01/31 22:19:30 dgp Exp $ +# RCS: @(#) $Id: tcltest.test,v 1.37.2.1 2004/04/02 17:39:08 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} |