Check-in [3d002d6892]
Overview
Comment:More tests
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 3d002d6892485b5686aa2e8494603f9b8e8f1e4c513881980e741f9f987d6a76
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
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
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