Tcl Source Code

Artifact 2df5403fd696fa2be91093e1f10669e04e22ac42:

Attachment "constraint.patch" to ticket [928353ffff] added by dgp 2004-04-02 23:28:41.

---

Index: tests/tcltest.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/tcltest.test,v
retrieving revision 1.39
diff -u -r1.39 tcltest.test
--- tests/tcltest.test	17 Mar 2004 19:29:43 -0000	1.39
+++ tests/tcltest.test	2 Apr 2004 16:15:41 -0000
@@ -563,12 +563,12 @@
     }
 }
 
-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 @@
     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}