234
235
236
237
238
239
240
241
242
243
244
245
246
247
|
tcltest::test xvfs-glob-hidden "Xvfs Glob Hidden Test " -body {
glob -nocomplain -directory $rootDir -types hidden *
} -result ""
tcltest::test xvfs-glob-executable "Xvfs Glob Executable Test " -body {
glob -nocomplain -directory $rootDir -types x *
} -result $rootDir/lib
tcltest::test xvfs-access-basic-read "Xvfs acccess Read Basic Test" -body {
file readable $testFile
} -match boolean -result true
tcltest::test xvfs-access-basic-write "Xvfs acccess Write Basic Test" -body {
file writable $testFile
|
>
>
>
>
|
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
|
tcltest::test xvfs-glob-hidden "Xvfs Glob Hidden Test " -body {
glob -nocomplain -directory $rootDir -types hidden *
} -result ""
tcltest::test xvfs-glob-executable "Xvfs Glob Executable Test " -body {
glob -nocomplain -directory $rootDir -types x *
} -result $rootDir/lib
tcltest::test xvfs-glob-trailing-slash-1 "Xvfs Glob Trailing Slash Test" -body {
llength [glob -nocomplain -directory $rootDir/ *]
} -result 3
tcltest::test xvfs-access-basic-read "Xvfs acccess Read Basic Test" -body {
file readable $testFile
} -match boolean -result true
tcltest::test xvfs-access-basic-write "Xvfs acccess Write Basic Test" -body {
file writable $testFile
|