#!./perl
BEGIN {
chdir 't' if -d 't';
}
$| = 1;
my $tmpfile = "tmp0000";
my $i = 0 ;
1 while -e ++$tmpfile;
if (@ARGV)
{ print "ARGV = [@ARGV]\n" ;
} else {
}
}
else
my $files = 0;
next if -d $file;
my $line = 0;
while (<F>) {
$line++;
}
{
local $/ = undef;
$files++;
}
close F ;
}
undef $/;
unless (/\n/)
{
print "# From $_\n";
next;
}
if (s/^\s*-\w+//){
$switch = $&;
}
shift @files ;
if @files % 2 ;
}
print F $code ;
}
shift @files ;
}
# fix up some paths
}
print TEST q{
BEGIN {
}
};
my $status = $?;
$results =~ s/\n+$//;
# allow expected output to be written as if $prog is on STDIN
# some tests will trigger VMS messages that won't be expected
# pipes double these sometimes
$results =~ s/\n\n/\n/g;
}
# bison says 'parse error' instead of 'syntax error',
# various yaccs may or may not capitalize 'syntax'.
# allow all tests to run when there are leaks
# fix up some paths
}
$expected =~ s/\n+$//;
# any special options? (OPTIONS foo bar zap)
my $option_regex = 0;
my $option_random = 0;
$option_regex = 1;
}
$option_random = 1;
}
else {
}
}
}
die "$0: can't have OPTION regex and random\n"
if $option_regex + option_random > 1;
}
elsif ($option_random)
{
}
print "not ";
}
print "ok " . ++$i . "\n";
foreach (@temps)
{ unlink $_ if $_ }
foreach (@temp_path)
{ rmtree $_ if -d $_ }
}
sub randomMatch
{
my $got = shift ;
my $expected = shift;
}