diff options
Diffstat (limited to 't/lib/compress/tied.pl')
| -rw-r--r-- | t/lib/compress/tied.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/lib/compress/tied.pl b/t/lib/compress/tied.pl index 52f51c7940..7833b9a7d9 100644 --- a/t/lib/compress/tied.pl +++ b/t/lib/compress/tied.pl @@ -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 ; |