diff options
Diffstat (limited to 'libtests/qtest')
-rw-r--r-- | libtests/qtest/input_source.test | 26 | ||||
-rw-r--r-- | libtests/qtest/input_source/input_source.out | 14 |
2 files changed, 40 insertions, 0 deletions
diff --git a/libtests/qtest/input_source.test b/libtests/qtest/input_source.test new file mode 100644 index 00000000..89a1c21a --- /dev/null +++ b/libtests/qtest/input_source.test @@ -0,0 +1,26 @@ +#!/usr/bin/env perl +require 5.008; +use warnings; +use strict; + +chdir("input_source") or die "chdir testdir failed: $!\n"; + +require TestDriver; + +my $td = new TestDriver('InputSource'); + +cleanup(); + +$td->runtest("input source tests", + {$td->COMMAND => "input_source"}, + {$td->FILE => "input_source.out", + $td->EXIT_STATUS => 0}, + $td->NORMALIZE_NEWLINES); + +cleanup(); + +$td->report(1); + +sub cleanup +{ +} diff --git a/libtests/qtest/input_source/input_source.out b/libtests/qtest/input_source/input_source.out new file mode 100644 index 00000000..6af379c6 --- /dev/null +++ b/libtests/qtest/input_source/input_source.out @@ -0,0 +1,14 @@ +find potato salad: PASS +barely find potato salad: PASS +barely find potato salad: PASS +potato salad is too late: PASS +potato salad is too late: PASS +potato salad not found: PASS +potato salad not found: PASS +potato salad at EOF: PASS +findFirst found first: PASS +findLast found potato salad: PASS +findLast found at EOF: PASS +potato but not salad salad at EOF: PASS +findLast found potato salad: PASS +findLast found first one: PASS |