Commit 32251497c1c7185380dd7f7836613bfe024285b8
1 parent
bd337b80
Temporary (revert after fix): mark test as expected failure
Showing
1 changed file
with
10 additions
and
2 deletions
qpdf/qtest/dangling-refs.test
| ... | ... | @@ -19,13 +19,21 @@ my $n_tests = 2 * scalar(@dangling); |
| 19 | 19 | |
| 20 | 20 | foreach my $f (@dangling) |
| 21 | 21 | { |
| 22 | + # TEMPORARY | |
| 23 | + my $xflags = 0; | |
| 24 | + if ($f eq 'dangling-bad-xref') | |
| 25 | + { | |
| 26 | + $xflags = $td->EXPECT_FAILURE; | |
| 27 | + } | |
| 28 | + # END TEMPORARY | |
| 22 | 29 | $td->runtest("dangling refs: $f", |
| 23 | 30 | {$td->COMMAND => "test_driver 53 $f.pdf"}, |
| 24 | 31 | {$td->FILE => "$f-dangling.out", $td->EXIT_STATUS => 0}, |
| 25 | - $td->NORMALIZE_NEWLINES); | |
| 32 | + $td->NORMALIZE_NEWLINES | $xflags); | |
| 26 | 33 | $td->runtest("check output", |
| 27 | 34 | {$td->FILE => "a.pdf"}, |
| 28 | - {$td->FILE => "$f-dangling-out.pdf"}); | |
| 35 | + {$td->FILE => "$f-dangling-out.pdf"}, | |
| 36 | + $xflags); | |
| 29 | 37 | } |
| 30 | 38 | cleanup(); |
| 31 | 39 | $td->report($n_tests); | ... | ... |