1use strict;
2use warnings;
3use Archive::Zip qw( :ERROR_CODES );
4
5my $zip = Archive::Zip->new();
6exit($zip->addTree("t/data", "") == AZ_OK
7     && $zip->writeToFileNamed("t/hello.par") == AZ_OK ? 0 : 1);
8