Commit e80b6e3341243cb86c4ef8ede5241091e29b4504
Committed by
Jay Berkenbilt
1 parent
eff935ab
Support paths with spaces
Showing
1 changed file
with
8 additions
and
8 deletions
qpdf/qtest/qpdf.test
| @@ -2086,15 +2086,15 @@ for (my $large = 0; $large < $nlarge; ++$large) | @@ -2086,15 +2086,15 @@ for (my $large = 0; $large < $nlarge; ++$large) | ||
| 2086 | my $size = ($large ? "large" : "small"); | 2086 | my $size = ($large ? "large" : "small"); |
| 2087 | my $file = $large ? "$large_file_test_path/a.pdf" : "a.pdf"; | 2087 | my $file = $large ? "$large_file_test_path/a.pdf" : "a.pdf"; |
| 2088 | $td->runtest("write test file", | 2088 | $td->runtest("write test file", |
| 2089 | - {$td->COMMAND => "test_large_file write $size $file"}, | 2089 | + {$td->COMMAND => "test_large_file write $size '$file'"}, |
| 2090 | {$td->FILE => "large_file.out", $td->EXIT_STATUS => 0}, | 2090 | {$td->FILE => "large_file.out", $td->EXIT_STATUS => 0}, |
| 2091 | $td->NORMALIZE_NEWLINES); | 2091 | $td->NORMALIZE_NEWLINES); |
| 2092 | $td->runtest("read test file", | 2092 | $td->runtest("read test file", |
| 2093 | - {$td->COMMAND => "test_large_file read $size $file"}, | 2093 | + {$td->COMMAND => "test_large_file read $size '$file'"}, |
| 2094 | {$td->FILE => "large_file.out", $td->EXIT_STATUS => 0}, | 2094 | {$td->FILE => "large_file.out", $td->EXIT_STATUS => 0}, |
| 2095 | $td->NORMALIZE_NEWLINES); | 2095 | $td->NORMALIZE_NEWLINES); |
| 2096 | $td->runtest("check", | 2096 | $td->runtest("check", |
| 2097 | - {$td->COMMAND => "qpdf --suppress-recovery --check $file", | 2097 | + {$td->COMMAND => "qpdf --suppress-recovery --check '$file'", |
| 2098 | $td->FILTER => "grep -v checking"}, | 2098 | $td->FILTER => "grep -v checking"}, |
| 2099 | {$td->FILE => "large_file-check-normal.out", | 2099 | {$td->FILE => "large_file-check-normal.out", |
| 2100 | $td->EXIT_STATUS => 0}, | 2100 | $td->EXIT_STATUS => 0}, |
| @@ -2118,11 +2118,11 @@ for (my $large = 0; $large < $nlarge; ++$large) | @@ -2118,11 +2118,11 @@ for (my $large = 0; $large < $nlarge; ++$large) | ||
| 2118 | {$td->COMMAND => | 2118 | {$td->COMMAND => |
| 2119 | "qpdf --stream-data=preserve" . | 2119 | "qpdf --stream-data=preserve" . |
| 2120 | " --object-streams=$omode" . | 2120 | " --object-streams=$omode" . |
| 2121 | - " $lin $file $newfile"}, | 2121 | + " $lin '$file' '$newfile'"}, |
| 2122 | {$td->STRING => "", $td->EXIT_STATUS => 0}); | 2122 | {$td->STRING => "", $td->EXIT_STATUS => 0}); |
| 2123 | $td->runtest("read test file", | 2123 | $td->runtest("read test file", |
| 2124 | {$td->COMMAND => | 2124 | {$td->COMMAND => |
| 2125 | - "test_large_file read $size $newfile"}, | 2125 | + "test_large_file read $size '$newfile'"}, |
| 2126 | {$td->FILE => "large_file.out", $td->EXIT_STATUS => 0}, | 2126 | {$td->FILE => "large_file.out", $td->EXIT_STATUS => 0}, |
| 2127 | $td->NORMALIZE_NEWLINES); | 2127 | $td->NORMALIZE_NEWLINES); |
| 2128 | my $check_out = | 2128 | my $check_out = |
| @@ -2135,7 +2135,7 @@ for (my $large = 0; $large < $nlarge; ++$large) | @@ -2135,7 +2135,7 @@ for (my $large = 0; $large < $nlarge; ++$large) | ||
| 2135 | : "large_file-check-normal.out")); | 2135 | : "large_file-check-normal.out")); |
| 2136 | $td->runtest("check: ostream=$ostream, linearize=$linearize", | 2136 | $td->runtest("check: ostream=$ostream, linearize=$linearize", |
| 2137 | {$td->COMMAND => | 2137 | {$td->COMMAND => |
| 2138 | - "qpdf --suppress-recovery --check $newfile", | 2138 | + "qpdf --suppress-recovery --check '$newfile'", |
| 2139 | $td->FILTER => "grep -v checking"}, | 2139 | $td->FILTER => "grep -v checking"}, |
| 2140 | {$td->FILE => $check_out, $td->EXIT_STATUS => 0}, | 2140 | {$td->FILE => $check_out, $td->EXIT_STATUS => 0}, |
| 2141 | $td->NORMALIZE_NEWLINES); | 2141 | $td->NORMALIZE_NEWLINES); |
| @@ -2155,10 +2155,10 @@ for (my $large = 0; $large < $nlarge; ++$large) | @@ -2155,10 +2155,10 @@ for (my $large = 0; $large < $nlarge; ++$large) | ||
| 2155 | print F "oops" or die; | 2155 | print F "oops" or die; |
| 2156 | close(F); | 2156 | close(F); |
| 2157 | 2157 | ||
| 2158 | - my $cmd = +{$td->COMMAND => "test_large_file read $size $file"}; | 2158 | + my $cmd = +{$td->COMMAND => "test_large_file read $size '$file'"}; |
| 2159 | if ($large) | 2159 | if ($large) |
| 2160 | { | 2160 | { |
| 2161 | - $cmd->{$td->FILTER} = "sed -e s,$large_file_test_path/,,"; | 2161 | + $cmd->{$td->FILTER} = "sed -e 's,$large_file_test_path/,,'"; |
| 2162 | } | 2162 | } |
| 2163 | $td->runtest("reconstruct xref table", | 2163 | $td->runtest("reconstruct xref table", |
| 2164 | $cmd, | 2164 | $cmd, |