warnings.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
}
$| = 1;
my $tmpfile = "tmp0000";
my $i = 0 ;
1 while -f ++$tmpfile;
if (@ARGV)
else
while (<F>) {
}
{
local $/ = undef;
}
close F ;
}
undef $/;
if (s/^\s*-\w+//){
$switch = $&;
}
shift @files ;
if @files % 2 ;
print F $code ;
close F ;
}
shift @files ;
}
my $status = $?;
$results =~ s/\n+$//;
# allow expected output to be written as if $prog is on STDIN
# 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
$expected =~ s/\n+$//;
# any special options? (OPTIONS foo bar zap)
my $option_regex = 0;
$option_regex = 1;
} else {
}
}
}
}
print "not ";
}
print "ok ", ++$i, "\n";
{ unlink $_ if $_ }
}