From 7b34c540ec190b661e37418ef31a01ce24492fdb Mon Sep 17 00:00:00 2001
From: Kevin B Kenny <kennykb@acm.org>
Date: Tue, 25 May 2004 18:46:52 +0000
Subject: * tests/winFCmd.test: Correct test for the presence of a CD-ROM so   
                    that it doesn't misdetect some other sort                 
      of filesystem with a write-protected root as                       being
 a CD-ROM drive. [Bug 918267]

---
 ChangeLog          |  7 +++++++
 tests/winFCmd.test | 21 ++++++---------------
 2 files changed, 13 insertions(+), 15 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 4834bc4..c6d9a30 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2004-05-25  Kevin Kenny  <kennykb@acm.org>
+
+	* tests/winFCmd.test: Correct test for the presence of a CD-ROM so
+	                      that it doesn't misdetect some other sort
+	                      of filesystem with a write-protected root as
+	                      being a CD-ROM drive. [Bug 918267]
+	
 2004-05-25  Don Porter  <dgp@users.sourceforge.net>
 
 	* tests/http.test:	Clear away the custom [bgerror] when done.
diff --git a/tests/winFCmd.test b/tests/winFCmd.test
index 5da5dd4..2ff1fee 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.28 2004/05/19 20:15:32 dkf Exp $
+# RCS: @(#) $Id: winFCmd.test,v 1.29 2004/05/25 18:46:53 kennykb Exp $
 #
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -61,20 +61,11 @@ if {[string equal $tcl_platform(platform) "windows"]} {
 # 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"} {
-	    set cdrom ${p}:
-	}
-	if {$err == "ENOENT"} {
-	    set nodrive ${p}:
-	}
-    } else {
-        close $fd
-	file delete $name
+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}:
+        }
     }
 }
 
-- 
cgit v0.12