316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
|
keygeneration
addressformat
blocks
work
}
foreach test $tests {
if {![test_$test]} {
puts "FAILED test $test"
exit 1
} else {
puts "\[OK\] $test"
}
}
puts "DONE"
exit 0
|
>
>
>
>
|
|
|
|
|
>
>
>
>
|
|
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
|
keygeneration
addressformat
blocks
work
}
foreach test $tests {
puts -nonewline "\[ \] $test"
flush stdout
if {[catch {
if {![test_$test]} {
puts "\[FAIL\] $test"
exit 1
} else {
puts "\r\[ OK \] $test"
}
} testErr]} {
puts "\[ERR \] $test: $testErr"
exit 1
}
}
puts "\[DONE\] All tests pass"
exit 0
|