t/11_explorer.t

   1 #!/use/bin/perl
   2
   3 # Check Windows Explorer compatible directories
   4
   5 use strict;
   6 BEGIN {
   7         $|  = 1;
   8         $^W = 1;
   9 }
  10
  11 use Test::More tests => 4;
  12 use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
  13
  14 my $zip = Archive::Zip->new;
  15 isa_ok( $zip, 'Archive::Zip' );
  16 my $member = $zip->addDirectory('foo/');
  17 ok(defined($member), 'Created a member');
  18 is($member->fileName, 'foo/', '->fileName ok');
  19 ok(
  20         $member->externalFileAttributes & 16,
  21         'Directory has directory bit set as expected by Windows Explorer',
  22 );