t/testUpdate.t

   1 # Test Archive::Zip updating\r
   2 # $Revision: 1.1 $\r
   3 # Before `make install' is performed this script should be runnable with\r
   4 # `make test'. After `make install' it should work as `perl t/testUpdate.t'\r
   5 # vim: set ts=4 sw=4 ft=perl\r
   6 \r
   7 $^W = 1;\r
   8 $| = 1;\r
   9 use strict;\r
  10 use Test;\r
  11 use Archive::Zip qw( :ERROR_CODES :CONSTANTS );\r
  12 use IO::File;\r
  13 use File::Spec 0.8;\r
  14 use File::Find ();\r
  15 \r
  16 BEGIN { plan tests => 12, todo => [] }\r
  17 \r
  18 my ($testFileVolume, $testFileDirs, $testFileName) = File::Spec->splitpath($0);\r
  19 \r
  20 my $zip = Archive::Zip->new();\r
  21 my $testDir = File::Spec->catpath( $testFileVolume, $testFileDirs, '' );\r
  22 \r
  23 my $numberOfMembers = 0;\r
  24 my @memberNames;\r
  25 sub countMembers { unless ($_ eq '.')\r
  26         { push(@memberNames, $_); $numberOfMembers++; } };\r
  27 File::Find::find( \&countMembers, $testDir );\r
  28 ok( $numberOfMembers > 1, 1, 'not enough members to test');\r
  29 \r
  30 # an initial updateTree() should act like an addTree()\r
  31 ok( $zip->updateTree( $testDir ), AZ_OK, 'initial updateTree failed' );\r
  32 ok( scalar($zip->members()), $numberOfMembers, 'wrong number of members after create' );\r
  33 \r
  34 my $firstFile = $memberNames[0];\r
  35 my $firstMember = ($zip->members())[0];\r
  36 \r
  37 ok( $firstFile, $firstMember->fileName(), 'member name wrong');\r
  38 \r
  39 # add a file to the directory\r
  40 $testFileName = File::Spec->catpath( $testFileVolume, $testFileDirs, 'xxxxxx' );\r
  41 my $fh = IO::File->new( $testFileName, 'w');\r
  42 $fh->print('xxxx');\r
  43 undef($fh);\r
  44 ok( -f $testFileName, 1, "creating $testFileName failed");\r
  45 \r
  46 # Then update it. It should be added.\r
  47 ok( $zip->updateTree( $testDir ), AZ_OK, 'updateTree failed' );\r
  48 ok( scalar($zip->members()), $numberOfMembers + 1, 'wrong number of members after update' );\r
  49 \r
  50 # Delete the file.\r
  51 unlink($testFileName);\r
  52 ok( -f $testFileName, undef, "deleting $testFileName failed");\r
  53 \r
  54 # updating without the mirror option should keep the members\r
  55 ok( $zip->updateTree( $testDir ), AZ_OK, 'updateTree failed' );\r
  56 ok( scalar($zip->members()), $numberOfMembers + 1, 'wrong number of members after update' );\r
  57 \r
  58 # now try again with the mirror option; should delete the last file.\r
  59 ok( $zip->updateTree( $testDir, undef, undef, 1 ), AZ_OK, 'updateTree failed' );\r
  60 ok( scalar($zip->members()), $numberOfMembers, 'wrong number of members after mirror' );\r
  61 \r