diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rwxr-xr-x | tests/tcltest.test | 8 |
2 files changed, 8 insertions, 4 deletions
@@ -1,3 +1,7 @@ +2002-09-06 Reinhard Max <max@suse.de> + + * tests/tcltest.test: Added nonRoot flag to tests 8.3, 8.4, and 8.12. + 2002-09-05 Don Porter <dgp@users.sourceforge.net> * doc/tcltest.n: Clarified phrasing. diff --git a/tests/tcltest.test b/tests/tcltest.test index 2a0523f..dd03458 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.33 2002/08/05 22:36:00 dgp Exp $ +# RCS: @(#) $Id: tcltest.test,v 1.34 2002/09/06 15:10:32 rmax Exp $ # Note that there are several places where the value of # tcltest::currentFailure is stored/reset in the -setup/-cleanup @@ -556,12 +556,12 @@ switch $tcl_platform(platform) { } } -test tcltest-8.3 {tcltest a.tcl -tmpdir notReadableDir} {unixOnly} { +test tcltest-8.3 {tcltest a.tcl -tmpdir notReadableDir} {unixOnly nonRoot} { slave msg a.tcl -tmpdir $notReadableDir string match {*not readable*} $msg } {1} -test tcltest-8.4 {tcltest a.tcl -tmpdir notWriteableDir} {unixOrPc} { +test tcltest-8.4 {tcltest a.tcl -tmpdir notWriteableDir} {unixOrPc nonRoot} { slave msg a.tcl -tmpdir $notWriteableDir string match {*not writeable*} $msg } {1} @@ -616,7 +616,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} { +test tcltest-8.12 {tcltest a.tcl -testdir notReadableDir} {unixOnly nonRoot} { slave msg a.tcl -testdir $notReadableDir string match {*not readable*} $msg } {1} |