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 afb65d3..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;
 
@@ -101,9 +103,7 @@ foreach my $CompressClass ('IO::Compress::Gzip', 'IO::Compress::Deflate')
         title "Fingerprint Truncation";
         foreach my $i (1)
         {
-            my $name = "test.gz" ;
-            unlink $name ;
-            my $lex = new LexFile $name ;
+            my $lex = new LexFile my $name ;
         
             ok 1, "Length $i" ;
             my $part = substr($compressed, 0, $i);
@@ -134,9 +134,7 @@ foreach my $CompressClass ('IO::Compress::Gzip', 'IO::Compress::Deflate')
         #
         foreach my $i (2 .. $header_size -1)
         {
-            my $name = "test.gz" ;
-            unlink $name ;
-            my $lex = new LexFile $name ;
+            my $lex = new LexFile my $name ;
         
             ok 1, "Length $i" ;
             my $part = substr($compressed, 0, $i);
@@ -151,9 +149,7 @@ foreach my $CompressClass ('IO::Compress::Gzip', 'IO::Compress::Deflate')
         foreach my $i ($header_size .. length($compressed) - 1 - $trailer_size)
         {
         
-            my $name = "test.gz" ;
-            unlink $name ;
-            my $lex = new LexFile $name ;
+            my $lex = new LexFile my $name ;
         
             ok 1, "Length $i" ;
             my $part = substr($compressed, 0, $i);
@@ -178,9 +174,7 @@ foreach my $CompressClass ('IO::Compress::Gzip', 'IO::Compress::Deflate')
         {
             foreach my $lax (0, 1)
             {
-                my $name = "test.gz" ;
-                unlink $name ;
-                my $lex = new LexFile $name ;
+                my $lex = new LexFile my $name ;
             
                 ok 1, "Length $i, Lax $lax" ;
                 my $part = substr($compressed, 0, $i);
@@ -257,9 +251,7 @@ foreach my $CompressClass ( 'IO::Compress::RawDeflate')
         foreach my $i (0 .. $blocksize)
         {
         
-            my $name = "test.gz" ;
-            unlink $name ;
-            my $lex = new LexFile $name ;
+            my $lex = new LexFile my $name ;
         
             ok 1, "Length $i" ;
             my $part = substr($compressed, 0, $i);
@@ -271,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();
             }
@@ -284,9 +276,7 @@ foreach my $CompressClass ( 'IO::Compress::RawDeflate')
         foreach my $i ($blocksize+1 .. length($compressed)-1)
         {
         
-            my $name = "test.gz" ;
-            unlink $name ;
-            my $lex = new LexFile $name ;
+            my $lex = new LexFile my $name ;
         
             ok 1, "Length $i" ;
             my $part = substr($compressed, 0, $i);