diff options
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/compress/generic.pl | 4 | ||||
| -rw-r--r-- | t/lib/compress/merge.pl | 9 |
2 files changed, 4 insertions, 9 deletions
diff --git a/t/lib/compress/generic.pl b/t/lib/compress/generic.pl index b11997c536..9e808eeb6f 100644 --- a/t/lib/compress/generic.pl +++ b/t/lib/compress/generic.pl @@ -18,7 +18,7 @@ BEGIN $extra = 1 if $st ; - plan(tests => 639 + $extra) ; + plan(tests => 641 + $extra) ; } sub myGZreadFile @@ -653,7 +653,9 @@ EOT my %opts = () ; my $iow = new $CompressClass $name, %opts; + is $iow->input_line_number, undef; $iow->print($str) ; + is $iow->input_line_number, undef; $iow->close ; my @tmp; diff --git a/t/lib/compress/merge.pl b/t/lib/compress/merge.pl index 2f893b29a4..7811966e84 100644 --- a/t/lib/compress/merge.pl +++ b/t/lib/compress/merge.pl @@ -19,7 +19,7 @@ BEGIN $extra = 1 if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 }; - plan tests => 166 + $extra ; + plan tests => 165 + $extra ; } @@ -32,13 +32,6 @@ sub run my $Error = getErrorRef($CompressClass); my $UnError = getErrorRef($UncompressClass); - - - - # Check zlib_version and ZLIB_VERSION are the same. - is Compress::Raw::Zlib::zlib_version, ZLIB_VERSION, - "ZLIB_VERSION matches Compress::Raw::Zlib::zlib_version" ; - # Tests # destination is a file that doesn't exist -- should work ok unless AnyDeflate # destination isn't compressed at all |