X-Git-Url: http://git.maemo.org/git/?a=blobdiff_plain;ds=sidebyside;f=dev%2Fi386%2Flibio-compress-zlib-perl%2Flibio-compress-zlib-perl-2.012%2Ft%2F104destroy-zip.t;fp=dev%2Fi386%2Flibio-compress-zlib-perl%2Flibio-compress-zlib-perl-2.012%2Ft%2F104destroy-zip.t;h=d071a06d37f5e1203f3d366e66a2b96ac7f09a91;hb=8977e561d8a9eae6959218b0306c9df2056a38a9;hp=0000000000000000000000000000000000000000;hpb=df794b845212301ea0d267c919232538bfef356a;p=dh-make-perl diff --git a/dev/i386/libio-compress-zlib-perl/libio-compress-zlib-perl-2.012/t/104destroy-zip.t b/dev/i386/libio-compress-zlib-perl/libio-compress-zlib-perl-2.012/t/104destroy-zip.t new file mode 100644 index 0000000..d071a06 --- /dev/null +++ b/dev/i386/libio-compress-zlib-perl/libio-compress-zlib-perl-2.012/t/104destroy-zip.t @@ -0,0 +1,21 @@ +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 IO::Compress::Zip qw($ZipError) ; +use IO::Uncompress::Unzip qw($UnzipError) ; + +sub identify +{ + 'IO::Compress::Zip'; +} + +require "destroy.pl" ; +run();