From 179437ed6e8013f10dd94707e387ce3d56bf800c Mon Sep 17 00:00:00 2001 From: Vince Darley Date: Thu, 1 Nov 2001 17:33:46 +0000 Subject: [PATCH] tests --- tests/cmdAH.test | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) 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} -- 2.23.0