1BEGIN { 2 if ($ENV{PERL_CORE}) { 3 chdir 't' if -d 't'; 4 @INC = ("../lib", "lib/compress"); 5 } 6} 7 8use lib qw(t t/compress); 9use strict; 10use warnings; 11 12use Test::More skip_all => "not implemented yet"; 13 14 15use IO::Compress::Zip qw($ZipError) ; 16use IO::Uncompress::Unzip qw($UnzipError) ; 17 18sub identify 19{ 20 'IO::Compress::Zip'; 21} 22 23require "merge.pl" ; 24run(); 25