Updated to tcl 8.4.1

[pf3gnuchains/sourceware.git] / tcl / tests / winFile.test

diff --git a/tcl/tests/winFile.test b/tcl/tests/winFile.test
index 2c4116a..17aee65 100644 (file)
--- a/tcl/tests/winFile.test
+++ b/tcl/tests/winFile.test
@@ -20,12 +20,12 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
 test winFile-1.1 {TclpGetUserHome} {pcOnly} {
     list [catch {glob ~nosuchuser} msg] $msg
 } {1 {user "nosuchuser" doesn't exist}}
-test winFile-1.2 {TclpGetUserHome} {nt nonPortable} {
+test winFile-1.2 {TclpGetUserHome} {pcOnly nt nonPortable} {
     # The administrator account should always exist.
 
     catch {glob ~administrator}
 } {0}
-test winFile-1.2 {TclpGetUserHome} {95} {
+test winFile-1.2 {TclpGetUserHome} {pcOnly 95} {
     # Find some user in system.ini and then see if they have a home.
 
     set f [open $::env(windir)/system.ini]
@@ -44,7 +44,7 @@ test winFile-1.2 {TclpGetUserHome} {95} {
     close $f
     set x
 } {0}
-test winFile-1.3 {TclpGetUserHome} {nt nonPortable} {
+test winFile-1.3 {TclpGetUserHome} {pcOnly nt nonPortable} {
     catch {glob ~stanton@workgroup}
 } {0}
 
@@ -62,6 +62,22 @@ test winFile-2.2 {TclpMatchFiles: case sensitivity} {pcOnly} {
     set result
 } {globlower globlower}
 
+test winFile-3.1 {file system} {pcOnly} {
+    set res "volume types ok"
+    foreach vol [file volumes] {
+       # Have to catch in case there is a removable drive (CDROM, floppy)
+       # with nothing in it.
+       catch {
+           if {![string equal [lindex [file system $vol] 1] [testvolumetype $vol]]} {
+               set res "For $vol, we found [file system $vol]\
+                 and [testvolumetype $vol] are different"
+               break
+           }
+       }
+    }
+    set res
+} {volume types ok}
+
 # cleanup
 ::tcltest::cleanupTests
 return
@@ -77,4 +93,3 @@ return
 
 
 
-