diff options
| author | dkf <dkf@noemail.net> | 2004-06-23 15:46:44 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2004-06-23 15:46:44 (GMT) |
| commit | 2b40edafd0553a253549111fa593fa0c8d19d8d7 (patch) | |
| tree | 5bd6c1f3d2ee801bb59a01e5c289614ba01f106b /tests/cmdAH.test | |
| parent | 6a8b00eb99cdc4d1e8db322dbde8c4fcdad2e428 (diff) | |
| download | tcl-2b40edafd0553a253549111fa593fa0c8d19d8d7.zip tcl-2b40edafd0553a253549111fa593fa0c8d19d8d7.tar.gz tcl-2b40edafd0553a253549111fa593fa0c8d19d8d7.tar.bz2 | |
Simplify constraint by assuming Mac is Unix (which is true these days)
FossilOrigin-Name: 618540629e4898dc8264d381d808a2f66d64b8f7
Diffstat (limited to 'tests/cmdAH.test')
| -rw-r--r-- | tests/cmdAH.test | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test index f15669b..06ad91a 100644 --- a/tests/cmdAH.test +++ b/tests/cmdAH.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: cmdAH.test,v 1.42 2004/06/23 15:36:55 dkf Exp $ +# RCS: @(#) $Id: cmdAH.test,v 1.43 2004/06/23 15:46:45 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.1 @@ -1229,16 +1229,16 @@ rename waitForEvenSecondForFAT {} test cmdAH-25.1 {Tcl_FileObjCmd: owned} { list [catch {file owned a b} msg] $msg } {1 {wrong # args: should be "file owned name"}} -test cmdAH-25.2 {Tcl_FileObjCmd: owned} -constraints {!unix} -body { - file owned $gorpfile +test cmdAH-25.2 {Tcl_FileObjCmd: owned} -constraints win -body { + file owned $gorpfile } -result 1 -test cmdAH-25.2.1 {Tcl_FileObjCmd: owned} -constraints {unix} -setup { - # Avoid problems with AFS - set tmpfile [makeFile "data" touch.me /tmp] +test cmdAH-25.2.1 {Tcl_FileObjCmd: owned} -constraints unix -setup { + # Avoid problems with AFS + set tmpfile [makeFile "data" touch.me /tmp] } -body { - file owned $tmpfile + file owned $tmpfile } -cleanup { - removeFile touch.me /tmp + removeFile touch.me /tmp } -result 1 test cmdAH-25.3 {Tcl_FileObjCmd: owned} {unix notRoot} { file owned / |