diff options
| author | Steve Peters <steve@fisharerojo.org> | 2007-03-04 07:01:34 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2007-03-04 07:01:34 +0000 |
| commit | 4e7676c784119f034a642411bdc4cde7d6f0c54a (patch) | |
| tree | c7c308dae5889d0b6fa16128d78af779c9f99eaa /t | |
| parent | ed94752d3e14e57ddb49df6f1f1d23eb25daf7af (diff) | |
| download | perl-4e7676c784119f034a642411bdc4cde7d6f0c54a.tar.gz | |
Upgrade to IO-Compress-Base-2.004, Compress-Raw-Zlib-2.004,
IO-Compress-Zlib-2.004, and Compress-Zlib-2.004.
p4raw-id: //depot/perl@30458
Diffstat (limited to 't')
| -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 |