1 files changed, 0 insertions, 72 deletions
diff --git a/ext/Compress/IO/Zlib/t/002any-transparent.t b/ext/Compress/IO/Zlib/t/002any-transparent.t
deleted file mode 100644
index bb26bbcac0..0000000000
--- a/ext/Compress/IO/Zlib/t/002any-transparent.t
+++ /dev/null
@@ -1,72 +0,0 @@
-BEGIN {
-    if ($ENV{PERL_CORE}) {
-        chdir 't' if -d 't';
-        @INC = ("../lib", "lib/compress");
-    }
-}
-
-use lib qw(t t/compress);
- 
-use strict;
-use warnings;
-use bytes;
-
-use Test::More ;
-use CompTestUtils;
-
-BEGIN {
-    # use Test::NoWarnings, if available
-    my $extra = 0 ;
-    $extra = 1
-        if eval { require Test::NoWarnings ;  import Test::NoWarnings; 1 };
-
-    plan tests => 15 + $extra ;
-
-    use_ok('IO::Uncompress::AnyInflate', qw($AnyInflateError)) ;
-
-}
-
-{
-
-    my $string = <<EOM;
-This is not compressed data
-EOM
-
-    my $buffer = $string ;
-
-    for my $file (0, 1)
-    {
-        title "AnyInflate with Non-compressed data (File $file)" ;
-
-        my $lex = new LexFile my $output;
-        my $input ;
-
-        if ($file) {
-            writeFile($output, $buffer);
-            $input = $output;
-        }
-        else {
-            $input = \$buffer;
-        }
-
-
-        my $unc ;
-        my $keep = $buffer ;
-        $unc = new IO::Uncompress::AnyInflate $input, -Transparent => 0 ;
-        ok ! $unc,"  no AnyInflate object when -Transparent => 0" ;
-        is $buffer, $keep ;
-
-        $buffer = $keep ;
-        $unc = new IO::Uncompress::AnyInflate \$buffer, -Transparent => 1 ;
-        ok $unc, "  AnyInflate object when -Transparent => 1"  ;
-
-        my $uncomp ;
-        ok $unc->read($uncomp) > 0 ;
-        ok $unc->eof() ;
-        #ok $unc->type eq $Type;
-
-        is $uncomp, $string ;
-    }
-}
-
-1;