diff options
author | Lorry Tar Creator <lorry-tar-importer@lorry> | 2015-07-31 18:59:09 +0000 |
---|---|---|
committer | Lorry Tar Creator <lorry-tar-importer@lorry> | 2015-07-31 18:59:09 +0000 |
commit | 42c8b23669eac442a303190dad44d78cea63cf59 (patch) | |
tree | 1cc49a1a1813bd802988e88058f353a4e0a23514 /t/11_explorer.t | |
download | Archive-Zip-tarball-master.tar.gz |
Archive-Zip-1.49HEADArchive-Zip-1.49master
Diffstat (limited to 't/11_explorer.t')
-rw-r--r-- | t/11_explorer.t | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/t/11_explorer.t b/t/11_explorer.t new file mode 100644 index 0000000..7f3053a --- /dev/null +++ b/t/11_explorer.t @@ -0,0 +1,23 @@ +#!/use/bin/perl + +# Check Windows Explorer compatible directories + +use strict; + +BEGIN { + $| = 1; + $^W = 1; +} + +use Test::More tests => 4; +use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); + +my $zip = Archive::Zip->new; +isa_ok($zip, 'Archive::Zip'); +my $member = $zip->addDirectory('foo/'); +ok(defined($member), 'Created a member'); +is($member->fileName, 'foo/', '->fileName ok'); +ok( + $member->externalFileAttributes & 16, + 'Directory has directory bit set as expected by Windows Explorer', +); |