Archive.pm

package Test::Archive;
use strict;
use warnings;
use parent 'Test::Builder::Module';
use Test::More;
use Archive::Zip;
our @ISA    = qw/Exporter/;
our @EXPORT = qw/is_archive_deeply/;

our $ignore_regexp = qr!(?:/$|__MACOSX/|\.DS_Store)!;

sub is_archive_deeply {
    my ($zipfile, $expected, $name) = @_;
    my $zip = Archive::Zip->new( $zipfile );

    my $memberNames = [ sort grep {
        $_ !~ $ignore_regexp;
    } $zip->memberNames() ];

    my $builder = Test::Builder->new;
    $builder->level( 2 );

    Test::More::is_deeply( $memberNames, [ sort @{ $expected } ], $name );
}

1;