mirror of
https://github.com/qpdf/qpdf.git
synced 2024-12-22 10:58:58 +00:00
Update qtest version to 1.6
This commit is contained in:
parent
e35e4099a2
commit
18e558e721
@ -33,7 +33,7 @@ require TestDriver;
|
||||
|
||||
if ((@ARGV == 1) && ($ARGV[0] eq '--version'))
|
||||
{
|
||||
print "$whoami version 1.5\n";
|
||||
print "$whoami version 1.6\n";
|
||||
exit 0;
|
||||
}
|
||||
if ((@ARGV == 1) && ($ARGV[0] eq '--print-path'))
|
||||
|
@ -711,10 +711,21 @@ sub runtest
|
||||
elsif (defined $in_file)
|
||||
{
|
||||
&QTC::TC("testdriver", "TestDriver input file");
|
||||
open($in, '<', $in_file) or
|
||||
if (! open($in, '<', $in_file))
|
||||
{
|
||||
# If the input file is not found, generate a string to use
|
||||
# as input, and make the string different each run to
|
||||
# prevent sloppy commiting of the string as the expected
|
||||
# output. This prevents complete failure in cases when the
|
||||
# input file is not found, such as when one test's input
|
||||
# file is generated by something that may have failed
|
||||
# earlier.
|
||||
my $not_found = "qtest, pid=$$: input file $in_file not found\n";
|
||||
open($in, '<', \$not_found) or
|
||||
croak +(+__PACKAGE__,
|
||||
"->runtest: unable to read from input file $in_file: $!\n");
|
||||
}
|
||||
}
|
||||
elsif (defined $in_command)
|
||||
{
|
||||
if (ref($in_command) eq 'ARRAY')
|
||||
|
Loading…
Reference in New Issue
Block a user