summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/winFCmd.test17
1 files changed, 4 insertions, 13 deletions
diff --git a/tests/winFCmd.test b/tests/winFCmd.test
index 0b1fdf0..a8a05c4 100644
--- a/tests/winFCmd.test
+++ b/tests/winFCmd.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: winFCmd.test,v 1.20.2.4 2004/05/04 22:26:00 hobbs Exp $
+# RCS: @(#) $Id: winFCmd.test,v 1.20.2.5 2004/05/25 19:02:28 kennykb Exp $
#
if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -64,20 +64,11 @@ set ::tcltest::testConstraints(exdev) 0
# find a CD-ROM so we can test read-only filesystems.
set cdrom {}
-set nodrive x:
-foreach p {d e f g h i j k l m n o p q r s t u v w x y z} {
- set name ${p}:/dummy~~.fil
- if [catch {set fd [open $name w]}] {
- set err [lindex $errorCode 1]
- if {$cdrom == "" && $err == "EACCES"} {
+if { [info commands ::testvolumetype] ne {} } {
+ foreach p {d e f g h i j k l m n o p q r s t u v w x y z} {
+ if { ! [catch { testvolumetype ${p}: } result] && $result eq {CDFS} } {
set cdrom ${p}:
}
- if {$err == "ENOENT"} {
- set nodrive ${p}:
- }
- } else {
- close $fd
- file delete $name
}
}