Lines Matching refs:test
5 # $Id: test.tcl,v 12.54 2008/05/13 18:32:51 carol Exp $
61 # Set when we're running a child process in a rep test.
66 # Set when we want to use replication test messaging that cannot
83 # of a test with run_all or run_std.
89 # If you call a test with the proc find_valid_methods, it will
99 # to test with and without the flag, but to run a meaningful
129 # This is where the test numbering and parameters now live.
148 # From here on out, test.tcl contains the procs that are used to
149 # run all or part of the test suite.
230 # If this is run_std only, run each rep test for a single
250 source $test_path/test.tcl; r $rflags $cmd" \
253 puts $o "FAIL: $cmd test: $res"
265 # Note that we still wrap the test in an exec so that
266 # its output goes to ALL.OUT. run_recd will wrap each test
269 # to the "real" stderr, but outside the wrapping for each test,
276 source $test_path/test.tcl; r $rflags recd" \
284 # Run join test
290 puts "Running join test"
291 foreach test "join1 join2 join3 join4 join5 join6" {
293 "source $test_path/test.tcl; r $rflags $test" \
296 puts $o "FAIL: $test test: $res"
311 foreach test $test_names(test) {
315 -$method $test $display $run $o
322 source $test_path/test.tcl; \
324 -$method $test $display $run"\
327 puts $o "FAIL:$test $method: $res"
556 foreach test $test_names($sub) {
557 eval run_test $test $display $run
636 foreach test $rlist {
646 [find_valid_methods $test]
655 puts "eval $test \
661 eval $test $rand_method
673 foreach test $rlist {
674 run_test $test $display $run
684 foreach sub { test sdb } {
685 foreach test $test_names($sub) {
687 $display $run $test
751 foreach test $test_names(test) {
753 $display $run $test
755 $display $run $test
767 foreach test $test_names(sdb) {
768 eval run_test $test $display $run
793 foreach test $test_names(test) {
794 eval run_method [lindex $args 0] $test \
826 foreach test $test_names($sub) {
828 puts "eval $test"
832 if {[catch {eval $test} ret] != 0 } {
833 puts "FAIL: run_subsystem: $sub $test: \
840 proc run_test { test {display 0} {run 1} args } {
846 puts "eval $test -$method $args; verify_dir $testdir \"\" 1"
850 eval $test -$method $args
856 proc run_method { method test {display 0} {run 1} \
867 puts -nonewline $outfile "eval $test $method"
868 puts -nonewline $outfile " $parms($test) $args"
874 eval $test $method $parms($test) $args
878 # verify all databases the test leaves behind
893 run_method: $method $test: $theError"
940 foreach test $rpc_tests($rpc_svc) {
958 puts "Running test $test with RPC service $rpc_svc"
959 puts "eval $test $method $parms($test) $largs"
960 eval $test $method $parms($test) $largs
982 run_rpcmethod: $method $test: $errorInfo"
1034 foreach test $test_names {
1036 if { [info exists parms($test)] != 1 } {
1037 puts stderr "$test disabled in \
1055 eval $test $method $parms($test) $largs
1088 proc run_secmethod { method test {display 0} {run 1} \
1100 eval run_method $method $test $display $run $outfile $largs
1106 proc run_secenv { method test {largs ""} } {
1122 puts "run_secenv: $method $test $largs"
1135 if { [info exists parms($test)] != 1 } {
1136 puts stderr "$test disabled in\
1142 # Run each test multiple times in the secure env.
1146 eval $test $method $parms($test) $largs
1148 eval $test $method $parms($test) $largs
1170 run_secenv: $method $test: $theError"
1182 proc run_reptest { method test {droppct 0} {nclients 1} {do_del 0} \
1186 puts "Skipping replication test on Win 9x platform."
1199 $method $test $droppct $nclients $do_del $do_sec $do_oob $largs"
1214 # test.
1217 $envargs $largs $test $nclients $droppct $do_oob]
1220 if { [info exists parms($test)] != 1 } {
1221 puts stderr "$test disabled in\
1227 "Repl: $test: dropping $droppct%, $nclients clients "
1245 eval $test $method $parms($test) $largs
1255 repl_envprocq $test $nclients $do_oob
1256 repl_envver0 $test $method $nclients
1258 repl_verdel $test $method $nclients
1260 repl_envclose $test $envargs
1269 run_reptest: $method $test: $theError"
1280 proc run_repmethod { method test {numcl 0} {display 0} {run 1} \
1284 puts "Skipping replication test on Win 9x platform."
1302 # numbers but test more clients occasionally.
1319 # dropping messages will cause test failures.
1329 puts $outfile "eval run_reptest $method $test $droppct \
1333 run_reptest $method $test $droppct $nclients $do_del \
1342 proc run_envmethod { method test {display 0} {run 1} {outfile stdout} \
1366 $test 0 1 stdout $largs"
1369 # To run a normal test using system memory, call run_envmethod
1383 # test as an arg. Double the number of lockers because a threaded
1390 # Remove from largs because -alloc is not an allowed test arg.
1411 if { [info exists parms($test)] != 1 } {
1412 puts stderr "$test disabled in\
1416 eval $test $method $parms($test) $largs
1438 run_envmethod: $method $test: $theError"
1447 proc run_recd { method test {run 1} {display 0} args } {
1462 puts "run_recd: $method $test $parms($test) $args"
1466 puts "eval $test $method $parms($test) $args"
1471 set upgrade_name $test
1478 "source $test_path/test.tcl; \
1485 eval $test $method $parms($test) $args" \
1489 # Don't die if the test failed; we want
1536 foreach test $test_names(recd) {
1539 if { $gen_upgrade_log == 1 && $test == "recd017" && \
1544 if { $gen_upgrade_log == 1 && $test != "recd017" && \
1546 puts "Skipping $test for crypto run."
1549 if { [catch {eval run_recd $method $test $run \
1556 set zlog_idx [lsearch -exact $zero_log_tests $test]
1558 if { [catch {eval run_recd $method $test \
1659 # << "source $test_path/test.tcl; \
1663 # puts $o "FAIL: recd test:"
1676 foreach sub {test sdb si} {
1677 foreach test $test_names($sub) {
1681 $test $display $run $o} \
1689 source $test_path/test.tcl; \
1691 $test $display $run \
1696 -$method $test: $res"
1710 foreach sub {test sdb si} {
1711 foreach test $test_names($sub) {
1714 run_envmethod -$method $test $display \
1722 source $test_path/test.tcl; \
1723 run_envmethod -$method $test \
1728 $method $test: $res"
1741 foreach sub {test sdb si} {
1742 foreach test $test_names($sub) {
1745 eval {run_envmethod -$method $test \
1753 source $test_path/test.tcl; \
1754 eval {run_envmethod -$method $test \
1759 $method $test -thread: $res"
1771 foreach sub {test sdb si} {
1772 foreach test $test_names($sub) {
1775 eval {run_envmethod -$method $test \
1783 source $test_path/test.tcl; \
1784 eval {run_envmethod -$method $test \
1789 $method $test -alloc: $res"
1828 source $test_path/test.tcl; \
1831 puts $o "FAIL: $cmd test: $res"
1867 # which runs each test in its own, new environment.)
1900 foreach test $test_names(test) {
1901 if { [info exists parms($test)] != 1 } {
1902 puts stderr "$test disabled in\
1908 eval $test $method $parms($test) $largs
1927 run_envmethod: $method $test: $theError"
1933 foreach test $test_names(test) {
1934 if { [info exists parms($test)] != 1 } {
1935 puts stderr "$test disabled in\
1941 eval $test $method $parms($test) $largs
1960 run_envmethod1: $method $test: $theError"
1991 foreach test $test_names(si) {
1994 "eval $test {\[list\
2001 eval $test \
2021 foreach test $test_names(si) {
2023 puts "eval $test {\[list $methlist\]} 500"
2026 eval $test {$methlist} 500
2032 # Run secondary index join test. (There's no point in running
2073 set testtype test
2078 # If a test number is missing, silently skip
2079 # to next test; sparse numbering is allowed.
2094 # We want to test all of 512b, 8Kb, and 64Kb pages, but chances are one