Overview
| Comment: | More tests |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
3d002d6892485b5686aa2e8494603f9b |
| User & Date: | rkeene on 2019-09-16 21:19:24 |
| Other Links: | manifest | tags |
Context
|
2019-09-16
| ||
| 21:35 | Added start of Client/Server testing check-in: 511419642c user: rkeene tags: trunk | |
| 21:19 | More tests check-in: 3d002d6892 user: rkeene tags: trunk | |
| 21:02 | More tests and cleaned up error handling for POSIX error codes check-in: e786b9e07b user: rkeene tags: trunk | |
Changes
Modified example/main.tcl from [414972be93] to [5be9e46f9a].
| ︙ | ︙ | |||
154 155 156 157 158 159 160 161 162 163 164 165 166 167 |
tcltest::test xvfs-match-almost-root-neg "Xvfs Match Almost Root" -body {
file exists ${rootDir}_DOES_NOT_EXIST
} -match boolean -result false
tcltest::test xvfs-glob-basic-any "Xvfs Glob Match Any Test" -body {
llength [glob_verify *]
} -result 3
tcltest::test xvfs-glob-basic-limited "Xvfs Glob Match Limited Test" -body {
llength [glob_verify f*]
} -result 1
tcltest::test xvfs-glob-basic-limited-neg "Xvfs Glob Match Limited Negative Test" -body {
llength [glob_verify x*]
| > > > > > > > > | 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 |
tcltest::test xvfs-match-almost-root-neg "Xvfs Match Almost Root" -body {
file exists ${rootDir}_DOES_NOT_EXIST
} -match boolean -result false
tcltest::test xvfs-glob-basic-any "Xvfs Glob Match Any Test" -body {
llength [glob_verify *]
} -result 3
tcltest::test xvfs-glob-files-any "Xvfs Glob Match Any File Test" -body {
llength [glob_verify -type f *]
} -result 2
tcltest::test xvfs-glob-dir-any "Xvfs Glob On a File Test" -body {
glob -nocomplain -directory $testFile *
} -returnCodes error -result "not a directory"
tcltest::test xvfs-glob-basic-limited "Xvfs Glob Match Limited Test" -body {
llength [glob_verify f*]
} -result 1
tcltest::test xvfs-glob-basic-limited-neg "Xvfs Glob Match Limited Negative Test" -body {
llength [glob_verify x*]
|
| ︙ | ︙ | |||
182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 |
tcltest::test xvfs-glob-basic-limited-prefixed-other-dir-1 "Xvfs Glob Match Directory Included in Search Test (Count)" -body {
llength [glob_verify lib/*]
} -result 1
tcltest::test xvfs-glob-basic-limited-prefixed-other-dir-2 "Xvfs Glob Match Directory Included in Search Test (Value)" -body {
lindex [glob_verify lib/*] 0
} -match glob -result "$rootDir/*"
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
} -match boolean -result false
tcltest::test xvfs-access-basic-neg "Xvfs acccess Basic Negative Test" -body {
file executable $testFile
} -match boolean -result false
tcltest::test xvfs-exists-basic-neg "Xvfs exists Basic Negative Test" -body {
file exists $rootDir/does-not-exist
} -match boolean -result false
tcltest::test xvfs-stat-basic-file "Xvfs stat Basic File Test" -body {
file stat $testFile fileInfo
| > > > > > > > > > > > > > > > > > > > > > > > > | 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 |
tcltest::test xvfs-glob-basic-limited-prefixed-other-dir-1 "Xvfs Glob Match Directory Included in Search Test (Count)" -body {
llength [glob_verify lib/*]
} -result 1
tcltest::test xvfs-glob-basic-limited-prefixed-other-dir-2 "Xvfs Glob Match Directory Included in Search Test (Value)" -body {
lindex [glob_verify lib/*] 0
} -match glob -result "$rootDir/*"
tcltest::test xvfs-glob-no-dir "Xvfs Glob Non-Existant Directory Test" -body {
glob_verify libx/*
} -returnCodes error -result "no such file or directory"
tcltest::test xvfs-glob-pipes "Xvfs Glob Pipes Test " -body {
glob_verify -types {p b c s l} lib/*
} -result ""
tcltest::test xvfs-glob-writable "Xvfs Glob Writable Test " -body {
glob -nocomplain -directory $rootDir -types w *
} -result ""
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
} -match boolean -result false
tcltest::test xvfs-access-basic-neg "Xvfs acccess Basic Negative Test" -body {
file executable $testFile
} -match boolean -result false
tcltest::test xvfs-access-similar-neg "Xvfs acccess Similar Negative Test" -body {
file executable ${rootDir}_DOES_NOT_EXIST
} -match boolean -result false
tcltest::test xvfs-exists-basic-neg "Xvfs exists Basic Negative Test" -body {
file exists $rootDir/does-not-exist
} -match boolean -result false
tcltest::test xvfs-stat-basic-file "Xvfs stat Basic File Test" -body {
file stat $testFile fileInfo
|
| ︙ | ︙ |