Compress::Zlib becomes zlib agnostic

[p5sagit/p5-mst-13.2.git] / ext / Compress / Zlib / t / 11truncate.t

diff --git a/ext/Compress/Zlib/t/11truncate.t b/ext/Compress/Zlib/t/11truncate.t
index d0acbd8..1655a88 100644 (file)
--- a/ext/Compress/Zlib/t/11truncate.t
+++ b/ext/Compress/Zlib/t/11truncate.t
@@ -1,7 +1,7 @@
 BEGIN {
     if ($ENV{PERL_CORE}) {
        chdir 't' if -d 't';
-       @INC = ("../lib", "lib");
+       @INC = ("../lib", "lib/compress");
     }
 }
 
@@ -10,6 +10,8 @@ use strict;
 use warnings;
 use bytes;
 
+# TODO -- split out & add zip/bzip2
+
 use Test::More ;
 use ZlibTestUtils;
 
@@ -261,8 +263,8 @@ foreach my $CompressClass ( 'IO::Compress::RawDeflate')
                 ok $gz;
                 ok ! $gz->error() ;
                 my $buff = '';
-                ok $gz->read($buff) == length $part ;
-                ok $buff eq $part ;
+                is $gz->read($buff), length $part ;
+                is $buff, $part ;
                 ok $gz->eof() ;
                 $gz->close();
             }