Overview
| Comment: | More tests |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
32bd347b137ac9fac4f76fd2664c7afe |
| User & Date: | rkeene on 2020-04-13 20:43:08 |
| Other Links: | manifest | tags |
Context
|
2020-04-13
| ||
| 20:50 | More tests regarding threads and child interps check-in: 4a6a7916e7 user: rkeene tags: trunk | |
| 20:43 | More tests check-in: 32bd347b13 user: rkeene tags: trunk | |
| 20:38 | Ensure relative path with double slashes can be accepted check-in: b502b175ea user: rkeene tags: trunk | |
Changes
Modified example/main.tcl from [5057e2018f] to [b547425a5a].
| ︙ | ︙ | |||
238 239 240 241 242 243 244 245 246 247 248 249 250 251 |
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
| > > > > > > > > | 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 |
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-glob-trailing-slash-2 "Xvfs Glob Trailing Slashes Test" -body {
llength [glob -nocomplain -directory $rootDir//// *]
} -result 3
tcltest::test xvfs-glob-middle-slash-1 "Xvfs Glob Middle Slash Test" -body {
llength [glob -nocomplain -directory $rootDir/lib// *]
} -result 1 -constraints knownBug
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
|
| ︙ | ︙ |