fix to small filesystem bugs

1 files changed, 16 insertions, 10 deletions

diff --git a/tests/cmdAH.test b/tests/cmdAH.test
index 06ad91a..2ecb291 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.43 2004/06/23 15:46:45 dkf Exp $
+# RCS: @(#) $Id: cmdAH.test,v 1.44 2004/09/27 15:00:40 vincentdarley Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2.1
@@ -358,15 +358,21 @@ test cmdAH-8.44 {Tcl_FileObjCmd: dirname} testsetplatform {
     set env(HOME) $temp
     set result
 } {0 ~}
-test cmdAH-8.45 {Tcl_FileObjCmd: dirname} testsetplatform {
-    global env
-    set temp $env(HOME)
-    set env(HOME) "/homewontexist/test"
-    testsetplatform windows
-    set result [list [catch {file dirname ~} msg] $msg]
-    set env(HOME) $temp
-    set result
-} {0 /homewontexist}
+test cmdAH-8.45 {Tcl_FileObjCmd: dirname} {
+    -constraints {Tcltest testsetplatform}
+    -match regexp
+    -body {
+	global env
+	set temp $env(HOME)
+	set env(HOME) "/homewontexist/test"
+	testsetplatform windows
+	set result [list [catch {file dirname ~} msg] $msg]
+	set env(HOME) $temp
+	set result
+    }
+    -result {{0 ([a-zA-Z]:?)/homewontexist}}
+}
+
 test cmdAH-8.46 {Tcl_FileObjCmd: dirname} {
     set f [file normalize [info nameof]]
     file exists $f