octoleo/qpdf
2
1
Fork 0
mirror of https://github.com/qpdf/qpdf.git synced 2024-06-03 19:00:51 +00:00
Code Issues Releases Wiki Activity

update qtest

Browse Source 
git-svn-id: svn+q:///qpdf/trunk@640 71b93d88-0707-0410-a8cf-f5a4172ac649
This commit is contained in:
Jay Berkenbilt 2008-11-23 18:50:47 +00:00
parent 337b900708
commit b2ccd972de
2 changed files with 22 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
qtest/bin/qtest-driver
View File

@ -33,7 +33,7 @@ require TestDriver;
if ((@ARGV == 1) && ($ARGV[0] eq '--version')) if ((@ARGV == 1) && ($ARGV[0] eq '--version'))
{ {
print "$whoami version 1.2\n"; print "$whoami version 1.3\n";
exit 0; exit 0;
} }
if ((@ARGV == 1) && ($ARGV[0] eq '--print-path')) if ((@ARGV == 1) && ($ARGV[0] eq '--print-path'))

33
qtest/module/TestDriver.pm
View File

@ -940,8 +940,8 @@ sub runtest
# $outcome_text is for the human-readable. We need something # $outcome_text is for the human-readable. We need something
# different for the xml file. # different for the xml file.
$testxml->print(" <testcase\n" . $testxml->print(" <testcase\n" .
" testid=\"$category $testnum\"\n" . " testid=\"" . xmlify($category, 1) . " $testnum\"\n" .
" description=\"$description\"\n" . " description=\"" . xmlify($description, 1) . "\"\n" .
" outcome=\"" . " outcome=\"" .
(($outcome eq PASS) (($outcome eq PASS)
? ($passed ? "pass" : "unexpected-pass") ? ($passed ? "pass" : "unexpected-pass")
@ -957,7 +957,7 @@ sub runtest
$testnum, $description); $testnum, $description);
my $cwd = getcwd(); my $cwd = getcwd();
$testlog->print("cwd: $cwd\n"); $testlog->print("cwd: $cwd\n");
$testxml->print(" <cwd>$cwd</cwd>\n"); $testxml->print(" <cwd>" . xmlify($cwd) . "</cwd>\n");
my $cmd = $in_command; my $cmd = $in_command;
if ((defined $cmd) && (ref($cmd) eq 'ARRAY')) if ((defined $cmd) && (ref($cmd) eq 'ARRAY'))
{ {
@ -966,7 +966,7 @@ sub runtest
if (defined $cmd) if (defined $cmd)
{ {
$testlog->print("command: $cmd\n"); $testlog->print("command: $cmd\n");
$testxml->print(" <command>$cmd</command>\n"); $testxml->print(" <command>" . xmlify($cmd) . "</command>\n");
} }
if (defined $out_file) if (defined $out_file)
{ {
@ -975,7 +975,8 @@ sub runtest
# real output was original in a file. # real output was original in a file.
$testlog->print("expected output in $out_file\n"); $testlog->print("expected output in $out_file\n");
$testxml->print( $testxml->print(
" <expected-output-file>$out_file</expected-output-file>\n"); " <expected-output-file>" . xmlify($out_file) .
"</expected-output-file>\n");
} }
# It would be nice if we could filter out internal calls for # It would be nice if we could filter out internal calls for
@ -984,7 +985,7 @@ sub runtest
$testlog->print(Carp::longmess()); $testlog->print(Carp::longmess());
$testxml->print(" <stacktrace>test failure" . $testxml->print(" <stacktrace>test failure" .
Carp::longmess() . xmlify(Carp::longmess()) .
"</stacktrace>\n"); "</stacktrace>\n");
if (! $status_match) if (! $status_match)
@ -1014,7 +1015,7 @@ sub runtest
{ {
$testlog->print("\n"); $testlog->print("\n");
} }
$testxml->print("regexp: " . $out_regexp); $testxml->print("regexp: " . xmlify($out_regexp));
} }
else else
{ {
@ -1169,6 +1170,18 @@ sub write_file_to_fh
} }
} }
sub xmlify
{
my ($str, $attr) = @_;
$attr = 0 unless defined $attr;
$str =~ s/\&/\&amp;/g;
$str =~ s/</&lt;/g;
$str =~ s/>/&gt;/g;
$str =~ s/\"/&quot;/g if $attr;
$str =~ s/([\000-\010\013-\037\177-\377])/sprintf("&#x%02x;", ord($1))/ge;
$str;
}
sub xml_write_file_to_fh sub xml_write_file_to_fh
{ {
my ($file, $out) = @_; my ($file, $out) = @_;
@ -1178,11 +1191,7 @@ sub xml_write_file_to_fh
binmode $in; binmode $in;
while (defined ($_ = <$in>)) while (defined ($_ = <$in>))
{ {
s/\&/\&amp;/g; $out->print(xmlify($_));
s/</&lt;/g;
s/>/&gt;/g;
s/([\000-\011\013-\037\177-\377])/sprintf("&#x%02x;", ord($1))/ge;
$out->print($_);
} }
$in->close(); $in->close();
} }