X-Git-Url: http://git.maemo.org/git/?p=dh-make-perl;a=blobdiff_plain;f=dev%2Fi386%2Flibio-compress-zlib-perl%2Flibio-compress-zlib-perl-2.012%2Ft%2Fcompress%2Fany.pl;fp=dev%2Fi386%2Flibio-compress-zlib-perl%2Flibio-compress-zlib-perl-2.012%2Ft%2Fcompress%2Fany.pl;h=d95766b0a9ada5e6ceba55374b769c6322295d8d;hp=0000000000000000000000000000000000000000;hb=8977e561d8a9eae6959218b0306c9df2056a38a9;hpb=df794b845212301ea0d267c919232538bfef356a

diff --git a/dev/i386/libio-compress-zlib-perl/libio-compress-zlib-perl-2.012/t/compress/any.pl b/dev/i386/libio-compress-zlib-perl/libio-compress-zlib-perl-2.012/t/compress/any.pl
new file mode 100644
index 0000000..d95766b
--- /dev/null
+++ b/dev/i386/libio-compress-zlib-perl/libio-compress-zlib-perl-2.012/t/compress/any.pl
@@ -0,0 +1,98 @@
+
+use lib 't';
+ 
+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 => 48 + $extra ;
+
+}
+
+sub run
+{
+    my $CompressClass   = identify();
+    my $AnyClass        = getClass();
+    my $UncompressClass = getInverse($CompressClass);
+    my $Error           = getErrorRef($CompressClass);
+    my $UnError         = getErrorRef($UncompressClass);
+
+    my $AnyConstruct = "IO::Uncompress::${AnyClass}" ;
+    no strict 'refs';
+    my $AnyError = \${ "IO::Uncompress::${AnyClass}::${AnyClass}Error" };
+
+    for my $trans ( 0, 1 )
+    {
+        for my $file ( 0, 1 )
+        {
+            title "$AnyClass(Transparent => $trans, File=>$file) with $CompressClass" ;
+            my $string = "some text" x 100 ;
+
+            my $buffer ;
+            my $x = new $CompressClass(\$buffer) ;
+            ok $x, "  create $CompressClass object" ;
+            ok $x->write($string), "  write to object" ;
+            ok $x->close, "  close ok" ;
+
+            my $lex = new LexFile my $output;
+            my $input ;
+
+            if ($file) {
+                writeFile($output, $buffer);
+                $input = $output;
+            }
+            else {
+                $input = \$buffer;
+            }
+
+            {
+                my $unc = new $AnyConstruct $input, Transparent => $trans,
+                                           RawInflate => 1,
+                                           Append => 1  ;
+
+                ok $unc, "  Created $AnyClass object" 
+                    or print "# $$AnyError\n";
+                my $uncomp ;
+                1 while  $unc->read($uncomp) > 0 ;
+                #ok $unc->read($uncomp) > 0 
+                #    or print "# $$AnyError\n";
+                my $y;
+                is $unc->read($y, 1), 0, "  at eof" ;
+                ok $unc->eof(), "  at eof" ;
+                #ok $unc->type eq $Type;
+
+                is $uncomp, $string, "  expected output" ;
+            }
+
+            {
+                my $unc = new $AnyConstruct $input, Transparent => $trans,
+                                           RawInflate => 1,
+                                           Append => 1  ;
+
+                ok $unc, "  Created $AnyClass object" 
+                    or print "# $$AnyError\n";
+                my $uncomp ;
+                1 while  $unc->read($uncomp, 100) > 0 ;
+                #ok $unc->read($uncomp) > 0 
+                #    or print "# $$AnyError\n";
+                my $y;
+                is $unc->read($y, 1), 0, "  at eof" ;
+                ok $unc->eof(), "  at eof" ;
+                #ok $unc->type eq $Type;
+
+                is $uncomp, $string, "  expected output" ;
+            }
+        }
+    }
+}
+
+1;