Lines Matching refs:test
57 puts -nonewline $o "Upgrade test started at: "
62 puts -nonewline "Upgrade test started at: "
82 # the endianness of the test platform. These are the
91 puts "Skipping test of $version \
133 # First we test the .db files.
138 $test_path/test.tcl;\
150 $test_path/test.tcl;\
160 # Then we test log files.
165 $test_path/test.tcl;\
180 # Then we test any .dmp files. Move
182 # directory. Run the test locally.
188 foreach test $test_names(plat) {
189 eval $test $method
197 discardline $testdir/$test.dmp \
200 TEMPFILE $testdir/$test.dmp
204 $testdir/$test.dmp] 0
397 # Generate test databases for each access method and endianness.
412 foreach test $test_names(plat) {
413 set upgrade_name $test
415 eval $test $method
421 #set test_names(test) ""
423 foreach test $test_names(test) {
424 if { [info exists parms($test)] != 1 } {
429 puts $o "\t\tGenerating files for $test"
431 puts "\t\tGenerating files for $test"
436 set upgrade_name $test
438 << "source $test_path/test.tcl;\
447 run_method -$method $test" \
450 $test $method"
454 # Save checksummed files for only one test.
458 set upgrade_name $test
459 if { $test == "test001" } {
461 << "source $test_path/test.tcl;\
475 run_method -$method $test \
479 $test $method \
492 set upgrade_name $test
494 << "source $test_path/test.tcl;\
504 run_secmethod $method $test" \
507 $test $method"
529 if [catch {exec $tclsh_path << "source $test_path/test.tcl;\
542 if [catch {exec $tclsh_path << "source $test_path/test.tcl;\
581 # the test directories appropriately, since testing
653 # per recd test, so we generate unique names:
676 # recd test created it.