diff options
Diffstat (limited to 'libtests/qtest')
-rw-r--r-- | libtests/qtest/lzw.test | 30 | ||||
-rw-r--r-- | libtests/qtest/lzw/lzw2.in | bin | 0 -> 38344 bytes | |||
-rw-r--r-- | libtests/qtest/lzw/lzw2.out | bin | 0 -> 143954 bytes |
3 files changed, 26 insertions, 4 deletions
diff --git a/libtests/qtest/lzw.test b/libtests/qtest/lzw.test index abb412d4..649cd330 100644 --- a/libtests/qtest/lzw.test +++ b/libtests/qtest/lzw.test @@ -9,9 +9,31 @@ require TestDriver; my $td = new TestDriver('lzw'); -$td->runtest("decode", - {$td->COMMAND => "lzw < lzw1.in"}, - {$td->FILE => "lzw1.out", +cleanup(); + +$td->runtest("decode: early code change", + {$td->COMMAND => "lzw < lzw1.in > tmp"}, + {$td->STRING => "", + $td->EXIT_STATUS => 0}); + +$td->runtest("check output", + {$td->FILE => "tmp"}, + {$td->FILE => "lzw1.out"}); + +$td->runtest("decode: no early code change", + {$td->COMMAND => "lzw --no-early-code-change < lzw2.in > tmp"}, + {$td->STRING => "", $td->EXIT_STATUS => 0}); -$td->report(1); +$td->runtest("check output", + {$td->FILE => "tmp"}, + {$td->FILE => "lzw2.out"}); + +cleanup(); + +$td->report(4); + +sub cleanup +{ + unlink "tmp"; +} diff --git a/libtests/qtest/lzw/lzw2.in b/libtests/qtest/lzw/lzw2.in Binary files differnew file mode 100644 index 00000000..5109c45a --- /dev/null +++ b/libtests/qtest/lzw/lzw2.in diff --git a/libtests/qtest/lzw/lzw2.out b/libtests/qtest/lzw/lzw2.out Binary files differnew file mode 100644 index 00000000..ab105031 --- /dev/null +++ b/libtests/qtest/lzw/lzw2.out |