diff options
author | Jay Berkenbilt <ejb@ql.org> | 2018-06-22 18:15:22 +0200 |
---|---|---|
committer | Jay Berkenbilt <ejb@ql.org> | 2018-06-22 18:52:45 +0200 |
commit | 4ccc8b1a44109a913c87f31029c9c17db30ecc43 (patch) | |
tree | fb2259c3507896c252037aca9b14e2d93acb2259 /libtests/qtest/closedfile.test | |
parent | 32ddcec91e77b9f6a52480c3393ab17cbc105880 (diff) | |
download | qpdf-4ccc8b1a44109a913c87f31029c9c17db30ecc43.tar.zst |
Add ClosedFileInputSource
ClosedFileInputSource is an input source that keeps the file closed
when not reading it.
Diffstat (limited to 'libtests/qtest/closedfile.test')
-rw-r--r-- | libtests/qtest/closedfile.test | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/libtests/qtest/closedfile.test b/libtests/qtest/closedfile.test new file mode 100644 index 00000000..864f9c12 --- /dev/null +++ b/libtests/qtest/closedfile.test @@ -0,0 +1,16 @@ +#!/usr/bin/env perl +require 5.008; +use warnings; +use strict; + +chdir("closedfile") or die "chdir testdir failed: $!\n"; + +require TestDriver; + +my $td = new TestDriver('closed_file_input_source'); + +$td->runtest("closed file input source", + {$td->COMMAND => "closed_file_input_source"}, + {$td->FILE => "output", $td->EXIT_STATUS => 0}, + $td->NORMALIZE_NEWLINES); +$td->report(1); |