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 52f51c7..80d42b7 100644 (file)
--- a/t/lib/compress/tied.pl
+++ b/t/lib/compress/tied.pl
@@ -150,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 }
@@ -199,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 ;