Lines Matching refs:test
38 die "You need to run \"make test\" first to set things up.\n"
103 if (m!^(ext/\S+/?(?:[^/\s]+\.t|test\.pl)|lib/\S+?(?:\.t|test\.pl))\s!) {
187 # + 3 : we want three dots between the test name and the "ok"
191 while ($test = shift @tests) {
193 if ( $infinite{$test} && $type eq 'compile' ) {
194 print STDERR "$test creates infinite loop! Skipping.\n";
197 if ($test =~ /^$/) {
201 if ($test eq "comp/redef.t") {
205 elsif ($test =~ m{lib/Switch/t/}) {
210 $te = $name{$test} . '.' x ($dotdotdot - length($name{$test}));
217 $test = $OVER{$test} if exists $OVER{$test};
219 open(SCRIPT,"<$test") or die "Can't run $test.\n";
252 "$test > $test.dp ".
253 "&& ./perl $testswitch $switch -I../lib $test.dp |";
268 my $bswitch = "-MO=Bytecode,-H,-TI,-s$pwd/$test,";
269 $bswitch .= "-TF$test.plc,"
270 if $test =~ m(chdir|pod/|CGI/t/carp|lib/DB);
272 if $test =~ m(deparse|terse|ext/Storable/t/code);
274 if $test =~ m(op/getpid);
277 "-o$test.plc $test 2>$null &&".
278 "$perl $testswitch $switch -I../lib $utf $test.plc |";
291 my $run = "$perl" . _quote_args("$testswitch $switch $utf") . " $test $redir|";
299 "-I \".. ../lib/CORE\" $args $utf $test -o ";
302 $test_executable = "$test.exe";
318 $test_executable = "$test.plc";
408 if (rename $valgrind_log, "$test.valgrind") {
411 warn "$0: Failed to create '$test.valgrind': $!\n";
423 unlink "./$test.dp";
426 my $tpp = $test;
434 # test if the compiler compiled something
445 print "${te}skipping test on this platform\n";
451 print "${te}FAILED at test $next\n";
453 $_ = $test;
455 die "Failed a basic test--cannot continue.\n";
472 warn "Failed 1 test script out of $files, $pct% okay.\n";
475 warn "Failed $bad test scripts out of $files, $pct% okay.\n";
480 ### See the INSTALL document's section on "make test".