diff options
author | Jay Berkenbilt <ejb@ql.org> | 2012-06-21 22:14:34 +0200 |
---|---|---|
committer | Jay Berkenbilt <ejb@ql.org> | 2012-06-21 22:15:09 +0200 |
commit | d1ebe30ff63a2f79da041e2d0c4718523db1beda (patch) | |
tree | 01daee6636708e83732e526cbe7c49172cc0d759 /qpdf/qtest/qpdf.test | |
parent | 9689f4cdcff33babafad71378fb26259f0556a99 (diff) | |
download | qpdf-d1ebe30ff63a2f79da041e2d0c4718523db1beda.tar.zst |
Add QPDFObjectHandle::shallowCopy()
Diffstat (limited to 'qpdf/qtest/qpdf.test')
-rw-r--r-- | qpdf/qtest/qpdf.test | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/qpdf/qtest/qpdf.test b/qpdf/qtest/qpdf.test index 053fb3b2..a1a76ce3 100644 --- a/qpdf/qtest/qpdf.test +++ b/qpdf/qtest/qpdf.test @@ -144,7 +144,7 @@ $td->runtest("duplicate page", $td->NORMALIZE_NEWLINES); # ---------- $td->notify("--- Miscellaneous Tests ---"); -$n_tests += 37; +$n_tests += 40; $td->runtest("qpdf version", {$td->COMMAND => "qpdf --version"}, @@ -338,6 +338,18 @@ $td->runtest("check output", {$td->FILE => "c-info-out.pdf"}); unlink "a.pdf" or die; +$td->runtest("shallow copy an array", + {$td->COMMAND => "test_driver 20 shallow_array.pdf"}, + {$td->STRING => "test 20 done\n", $td->EXIT_STATUS => 0}, + $td->NORMALIZE_NEWLINES); +$td->runtest("check output", + {$td->FILE => "a.pdf"}, + {$td->FILE => "shallow_array-out.pdf"}); +$td->runtest("shallow copy a stream", + {$td->COMMAND => "test_driver 21 shallow_array.pdf"}, + {$td->FILE => "shallow_stream.out", $td->EXIT_STATUS => 2}, + $td->NORMALIZE_NEWLINES); + show_ntests(); # ---------- $td->notify("--- Error Condition Tests ---"); |