diff options
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); |