The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

#!/usr/bin/perl -w

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

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