Add ARM files

[dh-make-perl] / dev / arm / libio-compress-zlib-perl / libio-compress-zlib-perl-2.012 / t / compress / destroy.pl

diff --git a/dev/arm/libio-compress-zlib-perl/libio-compress-zlib-perl-2.012/t/compress/destroy.pl b/dev/arm/libio-compress-zlib-perl/libio-compress-zlib-perl-2.012/t/compress/destroy.pl
new file mode 100644 (file)
index 0000000..186520d
--- /dev/null
+++ b/dev/arm/libio-compress-zlib-perl/libio-compress-zlib-perl-2.012/t/compress/destroy.pl
@@ -0,0 +1,115 @@
+
+use lib 't';
+use strict;
+use warnings;
+use bytes;
+
+use Test::More ;
+use CompTestUtils;
+
+BEGIN
+{
+    plan(skip_all => "Destroy not supported in Perl $]")
+        if $] == 5.008 || ( $] >= 5.005 && $] < 5.006) ;
+
+    # 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::File') ;
+}
+
+sub run
+{
+
+    my $CompressClass   = identify();
+    my $UncompressClass = getInverse($CompressClass);
+    my $Error           = getErrorRef($CompressClass);
+    my $UnError         = getErrorRef($UncompressClass);
+
+    title "Testing $CompressClass";
+
+    {
+        # Check that the class destructor will call close
+
+        my $lex = new LexFile my $name ;
+
+        my $hello = <<EOM ;
+hello world
+this is a test
+EOM
+
+
+        {
+          ok my $x = new $CompressClass $name, -AutoClose => 1  ;
+
+          ok $x->write($hello) ;
+        }
+
+        is anyUncompress($name), $hello ;
+    }
+
+    {
+        # Tied filehandle destructor
+
+
+        my $lex = new LexFile my $name ;
+
+        my $hello = <<EOM ;
+hello world
+this is a test
+EOM
+
+        my $fh = new IO::File "> $name" ;
+
+        {
+          ok my $x = new $CompressClass $fh, -AutoClose => 1  ;
+
+          $x->write($hello) ;
+        }
+
+        ok anyUncompress($name) eq $hello ;
+    }
+    
+    {
+        title "Testing DESTROY doesn't clobber \$! etc ";
+
+        my $lex = new LexFile my $name ;
+
+        my $out;
+        my $result;
+        
+        {
+            ok my $z = new $CompressClass($name); 
+            $z->write("abc") ;
+            $! = 22 ;
+
+            cmp_ok $!, '==', 22, '  $! is 22';
+        }
+        
+        cmp_ok $!, '==', 22, "  \$! has not been changed by $CompressClass destructor";
+
+                
+        {
+                my $uncomp;
+                ok my $x = new $UncompressClass($name, -Append => 1)  ;
+                
+                my $len ;
+                1 while ($len = $x->read($result)) > 0 ;
+                
+                $! = 22 ;
+
+                cmp_ok $!, '==', 22, '  $! is 22';
+        }    
+           
+        cmp_ok $!, '==', 22, "  \$! has not been changed by $UncompressClass destructor";
+                
+        is $result, "abc", "  Got uncompressed content ok";
+ 
+    }
+}
+
+1;