1N/A chdir 't' if -d 't'; 1N/A { print "ARGV = [@ARGV]\n" ; 1N/A print "# From $_\n"; 1N/A die "Internal error test $i didn't split into pairs, got " . 1N/A $prog =~ s|require "./abc(d)?";|require ":abc$1";|g; 1N/A print TEST "\n#line 1\n"; # So the line numbers don't get messed up. 1N/A # allow expected output to be written as if $prog is on STDIN 1N/A # some tests will trigger VMS messages that won't be expected 1N/A # pipes double these sometimes 1N/A# bison says 'parse error' instead of 'syntax error', 1N/A# various yaccs may or may not capitalize 'syntax'. 1N/A # allow all tests to run when there are leaks 1N/A # any special options? (OPTIONS foo bar zap) 1N/A elsif ($option eq 'random') { # all lines match, but in any order 1N/A die "$0: can't have OPTION regex and random\n" 1N/A print "ok " . ++$i . "\n"; 1N/A return "@got" eq "@expected";