Compression Modules Update for EBCDIC

[p5sagit/p5-mst-13.2.git] / t / lib / compress / tied.pl

diff --git a/t/lib/compress/tied.pl b/t/lib/compress/tied.pl
index e84a053..80d42b7 100644 (file)
--- a/t/lib/compress/tied.pl
+++ b/t/lib/compress/tied.pl
@@ -5,7 +5,7 @@ use warnings;
 use bytes;
 
 use Test::More ;
-use ZlibTestUtils;
+use CompTestUtils;
 
 our ($BadPerl, $UncompressClass);
  
@@ -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::Zlib', 2) ;
-
 }
  
  
@@ -152,7 +150,7 @@ sub run
             my $foo = "1234567890";
             
             ok syswrite($io, $foo, length($foo)) == length($foo) ;
-            if ( $[ < 5.6 )
+            if ( $] < 5.6 )
               { is $io->syswrite($foo, length $foo), length $foo }
             else
               { is $io->syswrite($foo), length $foo }
@@ -201,10 +199,10 @@ EOT
             {
                 my $io = new $UncompressClass $name ;
             
-                ok ! $io->eof;
-                is $io->tell(), 0 ;
+                ok ! $io->eof, "  Not EOF";
+                is $io->tell(), 0, "  Tell is 0" ;
                 my @lines = <$io>;
-                is @lines, 6
+                is @lines, 6, "  Line is 6"
                     or print "# Got " . scalar(@lines) . " lines, expected 6\n" ;
                 is $lines[1], "of a paragraph\n" ;
                 is join('', @lines), $str ;