diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-06-23 15:36:52 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-06-23 15:36:52 (GMT) |
commit | 917f6e364bb4aaeed6b6e109ce16525d58091193 (patch) | |
tree | 62ce3a9ba3ee31456f0967b7e5e3c7b35c33dd5e /tests/tcltest.test | |
parent | 5ce4f325726f9d4a32b7499cc8a0ff0d81a2dc48 (diff) | |
download | tcl-917f6e364bb4aaeed6b6e109ce16525d58091193.zip tcl-917f6e364bb4aaeed6b6e109ce16525d58091193.tar.gz tcl-917f6e364bb4aaeed6b6e109ce16525d58091193.tar.bz2 |
Standardize some use of test constraints onto names that are documented
Diffstat (limited to 'tests/tcltest.test')
-rwxr-xr-x | tests/tcltest.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/tcltest.test b/tests/tcltest.test index 8aee3c5..9d0aa82 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.43 2004/05/26 16:25:01 dgp Exp $ +# RCS: @(#) $Id: tcltest.test,v 1.44 2004/06/23 15:36:58 dkf Exp $ # Note that there are several places where the value of # tcltest::currentFailure is stored/reset in the -setup/-cleanup @@ -561,7 +561,7 @@ switch $tcl_platform(platform) { } } -test tcltest-8.3 {tcltest a.tcl -tmpdir notReadableDir} {unixOnly notRoot} { +test tcltest-8.3 {tcltest a.tcl -tmpdir notReadableDir} {unix notRoot} { slave msg $a -tmpdir $notReadableDir string match {*not readable*} $msg } {1} @@ -621,7 +621,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 notRoot} { +test tcltest-8.12 {tcltest a.tcl -testdir notReadableDir} {unix notRoot} { slave msg $a -testdir $notReadableDir string match {*not readable*} $msg } {1} |