view release on metacpan or  search on metacpan

t/not_a_zip.zip  view on Meta::CPAN

#!/usr/bin/perl -w

use Archive::Any;
use Test::More tests => 1;

chdir 't';
ok( !Archive::Any->new("im_not_really_a.zip") );