From: Vince Darley <vincentdarley@sourceforge.net>
Date: Thu, 1 Nov 2001 17:33:46 +0000 (+0000)
Subject: tests
X-Git-Tag: vfs-1-2~90
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=179437ed6e8013f10dd94707e387ce3d56bf800c;p=tclvfs

tests
---

diff --git a/tests/cmdAH.test b/tests/cmdAH.test
index 9bd4c60..9844215 100644
--- a/tests/cmdAH.test
+++ b/tests/cmdAH.test
@@ -1098,10 +1098,10 @@ catch {
     makeDirectory dir.file
     makeFile 12345 [file join dir.file gorp.file]
 }
-test cmdAH-19.4 {Tcl_FileObjCmd: exists} {
+test cmdAH-19.4 {Tcl_FileObjCmd: exists} {fsIsWritable} {
     file exists gorp.file
 } 1
-test cmdAH-19.5 {Tcl_FileObjCmd: exists} {
+test cmdAH-19.5 {Tcl_FileObjCmd: exists} {fsIsWritable} {
     file exists [file join dir.file gorp.file]
 } 1
 
@@ -1155,12 +1155,12 @@ test cmdAH-19.11 {Tcl_FileObjCmd: exists} {unixOnly notRoot} {
 
 catch {testsetplatform $platform}
 file delete gorp.file
-makeFile "Test string" gorp.file
+catch {makeFile "Test string" gorp.file}
 catch {exec chmod 765 gorp.file}
 
 # atime
 
-set file [makeFile "data" touch.me]
+catch {set file [makeFile "data" touch.me]}
 
 test cmdAH-20.1 {Tcl_FileObjCmd: atime} {
     list [catch {file atime a b c} msg] $msg
@@ -1282,7 +1282,7 @@ test cmdAH-23.10 {Tcl_FileObjCmd: mkdir} {
 
 # mtime 
 
-set file [makeFile "data" touch.me]
+catch {set file [makeFile "data" touch.me]}
 
 test cmdAH-24.1 {Tcl_FileObjCmd: mtime} {
     list [catch {file mtime a b c} msg] $msg
@@ -1390,7 +1390,7 @@ test cmdAH-27.3 {Tcl_FileObjCmd: size} {
 # stat
 
 catch {testsetplatform $platform}
-makeFile "Test string" gorp.file
+catch {makeFile "Test string" gorp.file}
 catch {exec chmod 765 gorp.file}
 
 test cmdAH-28.1 {Tcl_FileObjCmd: stat} {
@@ -1550,6 +1550,8 @@ test cmdAH-31.4 {Tcl_FileObjCmd: channels, globbing} {
     lsort [file channels std*]
 } [lsort {stdout stderr stdin}]
 
+set newFileId ""
+
 test cmdAH-31.5.0 {Tcl_FileObjCmd: channels} {fsIsWritable} {
     catch {set newFileId [open gorp.file w]}
 } {0}