Lines Matching refs:set
34 set testdir [file dirname $argv0]
36 set ::testprefix avfs
45 set CLI [test_find_cli]
51 set ::fa avfs.adb
52 set ::fza avfs.sdb
54 set ::result {}
57 set shdo "sh_app1.sql"
59 set fd [open $shdo w]
62 set res [catchcmd "-batch -cmd \".read $shdo\""]
66 set ::vf "&vfs=apndvfs"
73 if {[catch {set fd [open $fname rb]}]} {
77 set am [read $fd 17]
78 set ao [read $fd 8]
88 set results {}
89 set out [open $::fza wb]
101 set ::result [join $results " | "]
105 set results {}
111 set ::result [join $results " | "]
115 set results {}
116 set out [open $::fa wb]
117 set ::tlo { "Just some text," "and more text," "ending at 3 lines." }
120 set adbSz [file size $::fa]
131 set adaSz [file size $::fa]
133 set ::result [join $results " | "]
137 set results {}
143 set ::result [join $results " | "]
147 set ::result [fosAvfs $fa]
151 set in [open $::fa r]
152 set tli {}
153 for {set i [llength $::tlo]} {$i > 0} {incr i -1} {
158 set ::result "Appendee changed."
160 set ::result "Appendee intact."
165 set ::nrint 50000
169 array set ::randints [list 0 [rint [::tcl::mathfunc::srand 0]]]
170 for {set i 1} {$i < $::nrint} {incr i} {
171 set ::randints($i) [rint [::tcl::mathfunc::rand]]
175 set results {}
183 for {set i 0} {$i < $::nrint} {incr i} {
184 set r $::randints($i)
185 set s $::randints([incr i])
186 set t $::randints([incr i])
187 set u $::randints([incr i])
188 set v $::randints([incr i])
197 set adbSz [file size $::fa]
198 set qr {}
208 set adaSz [file size $::fa]
209 set adba [expr ($adbSz + 0.1)/$adaSz]
211 set results [concat $results [lrange $qr 0 2]]
213 set ::result [join $results " | "]
217 set results {}
223 set ::result [join $results " | "]
228 set results {}
230 set npages 300
241 set adaSzr [expr [file size $::fa] / 300.0 / 1500 ]
242 set okSzr [expr $adaSzr > 1.0 && $adaSzr < 1.3 ]
244 set ::result [join $results " | "]
249 set results {}
255 set ::result $ic
260 set results {}
261 set adbsz [file size $::fa]
270 set adasz [file size $::fa]
277 set ::result [join $results " | "]
280 set ::cliDoesAr [shellDoesAr]
283 set shdo "sh_app1.sql"
284 set shod "sh_app1.adb"
286 set ofd [open $shdo w]
296 set ofd [open $shod wb]
299 set res [catchcmd "-append -batch -init $shdo $shod" ""]
302 set ::result [join $res " | "]
306 set shdo "sh_app1.sql"
307 set shod "sh_app1.adb"
309 set ofd [open $shdo w]
319 set ofd [open $shod wb]
321 set res [catchcmd "-append -batch -init $shdo $shod" ""]
324 set ::result [join $res " | "]
328 set shdo "sh_app1.sql"
329 set shod "sh_app1.adb" ; # Same as test 4.2, reusing ADB.
331 set ofd [open $shdo w]
341 set res [catchcmd "-append -batch -init $shdo $shod" ""]
348 set ::result [join $res " | "]
352 set fake "faketiny.sdb"
354 set ofd [open $fake wb]
361 set res "Open failed."
364 set res "Opened when should not."
367 set ::result $res
371 set fake "faketiny.sdb"
373 set ofd [open $fake wb]
374 set fakeAppendee "Dog ate my homework.\n"
382 set res "Open failed."
385 set res "Opened when should not."
388 set ::result $res