diff options
author | hershey <hershey> | 1999-04-06 22:01:43 (GMT) |
---|---|---|
committer | hershey <hershey> | 1999-04-06 22:01:43 (GMT) |
commit | d8f6ca8f7aaa8db32a951943937a1c2dd9d8c605 (patch) | |
tree | c2c87d9609eaa498a2704d7bf15a778e25bc745d | |
parent | 19b921e53e9029b7d9c66ebf723d917ec4830361 (diff) | |
download | tcl-d8f6ca8f7aaa8db32a951943937a1c2dd9d8c605.zip tcl-d8f6ca8f7aaa8db32a951943937a1c2dd9d8c605.tar.gz tcl-d8f6ca8f7aaa8db32a951943937a1c2dd9d8c605.tar.bz2 |
2 pcOnly tests require c drive to be shared, so I added a sharedCdrive
constraint.
-rw-r--r-- | tests/fileName.test | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/tests/fileName.test b/tests/fileName.test index 540c50a..61e39a6 100644 --- a/tests/fileName.test +++ b/tests/fileName.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: fileName.test,v 1.1.2.8 1999/04/06 20:21:25 stanton Exp $ +# RCS: @(#) $Id: fileName.test,v 1.1.2.9 1999/04/06 22:01:43 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -1379,7 +1379,15 @@ test filename-16.11 {windows specific globbing} {pcOnly} { lsort [glob c:\\\\globTest\\\\*.bat] } {c:/globTest/x1.BAT c:/globTest/y1.Bat c:/globTest/z1.bat} -test filename-16.12 {windows specific globbing} {pcOnly} { +# some tests require a shared C drive + +if {[catch {cd //[info hostname]/c}]} { + set ::tcltest::testConfig(sharedCdrive) 0 +} else { + set ::tcltest::testConfig(sharedCdrive) 1 +} + +test filename-16.12 {windows specific globbing} {pcOnly sharedCdrive} { cd //[info hostname]/c removeDirectory globTest makeDirectory globTest @@ -1388,7 +1396,7 @@ test filename-16.12 {windows specific globbing} {pcOnly} { close [open globTest/z1.bat w] glob //[info hostname]/c/*Test } //[info hostname]/c/globTest -test filename-16.13 {windows specific globbing} {pcOnly} { +test filename-16.13 {windows specific globbing} {pcOnly sharedCdrive} { cd //[info hostname]/c removeDirectory globTest makeDirectory globTest |