diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2006-03-16 14:38:52 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-03-16 15:19:03 +0000 |
| commit | cb7abd7f1d4048e97e3364ad103a4806dcf94905 (patch) | |
| tree | a7805ea8b470949e38bcf30e33e09615b839c021 /t | |
| parent | 6b845e562be40aac749b544b6d494078c54de4aa (diff) | |
| download | perl-cb7abd7f1d4048e97e3364ad103a4806dcf94905.tar.gz | |
Compress::Raw::Zlib, Compress::Zlib, IO::Compress::Zlib 2.000_10
From: "Paul Marquess" <paul.marquess@ntlworld.com>
Message-ID: <009401c64907$5a6ed710$4c05140a@myopwv.com>
p4raw-id: //depot/perl@27516
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/compress/generic.pl | 4 | ||||
| -rw-r--r-- | t/lib/compress/tied.pl | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/t/lib/compress/generic.pl b/t/lib/compress/generic.pl index c10b14fee4..884c416ea7 100644 --- a/t/lib/compress/generic.pl +++ b/t/lib/compress/generic.pl @@ -18,7 +18,7 @@ BEGIN $extra = 1 if $st ; - plan(tests => 597 + $extra) ; + plan(tests => 601 + $extra) ; } sub myGZreadFile @@ -1260,6 +1260,8 @@ EOT is $u->read($buff, 1), 0; ok $u->eof() ; + # getc returns undef on eof + is $u->getc(), undef; $u->close(); } diff --git a/t/lib/compress/tied.pl b/t/lib/compress/tied.pl index 2dd52c6add..52f51c7940 100644 --- a/t/lib/compress/tied.pl +++ b/t/lib/compress/tied.pl @@ -23,16 +23,14 @@ BEGIN $BadPerl = ($] >= 5.006 and $] <= 5.008) ; if ($BadPerl) { - $tests = 242 ; + $tests = 241 ; } else { - $tests = 250 ; + $tests = 249 ; } plan tests => $tests + $extra ; - use_ok('Compress::Raw::Zlib') ; - } |