t/05_tree.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 use strict;
   6 BEGIN {
   7         $|  = 1;
   8         $^W = 1;
   9 }
  10 use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
  11 use FileHandle;
  12 use File::Spec;
  13
  14 use Test::More tests =>6;
  15 BEGIN {
  16     unshift @INC, "t/";
  17     require( File::Spec->catfile('t', 'common.pl') )
  18                 or die "Can't load t/common.pl";
  19 }
  20
  21 use constant FILENAME => File::Spec->catfile(TESTDIR, 'testing.txt');
  22
  23 my $zip;
  24 my @memberNames;
  25
  26 sub makeZip
  27 {
  28         my ($src, $dest, $pred) = @_;
  29         $zip = Archive::Zip->new();
  30         $zip->addTree($src, $dest, $pred);
  31         @memberNames = $zip->memberNames();
  32 }
  33
  34 sub makeZipAndLookFor
  35 {
  36         my ($src, $dest, $pred, $lookFor) = @_;
  37         makeZip($src, $dest, $pred);
  38         ok( @memberNames );
  39         ok( (grep { $_ eq $lookFor } @memberNames) == 1 )
  40                 or print STDERR "Can't find $lookFor in (" . join(",", @memberNames) . ")\n";
  41 }
  42
  43 my ($testFileVolume, $testFileDirs, $testFileName) = File::Spec->splitpath($0);
  44
  45 makeZipAndLookFor('.', '', sub { print "file $_\n"; -f && /\.t$/ }, 't/02_main.t' );
  46 makeZipAndLookFor('.', 'e/', sub { -f && /\.t$/ }, 'e/t/02_main.t');
  47 makeZipAndLookFor('./t', '', sub { -f && /\.t$/ }, '02_main.t' );