1 files changed, 72 insertions, 0 deletions
diff --git a/ext/Compress/IO/Zlib/t/002any-transparent.t b/ext/Compress/IO/Zlib/t/002any-transparent.t
new file mode 100644
index 0000000000..bb26bbcac0
--- /dev/null
+++ b/ext/Compress/IO/Zlib/t/002any-transparent.t
@@ -0,0 +1,72 @@
+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;