1 files changed, 73 insertions, 0 deletions
diff --git a/t/06_update.t b/t/06_update.t
new file mode 100644
index 0000000..31b09d3
--- /dev/null
+++ b/t/06_update.t
@@ -0,0 +1,73 @@
+#!/usr/bin/perl
+
+# Test Archive::Zip updating
+
+use strict;
+
+BEGIN {
+    $|  = 1;
+    $^W = 1;
+}
+use File::Spec ();
+use IO::File   ();
+use File::Find ();
+use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
+
+use Test::More tests => 12;
+use t::common;
+
+my ($testFileVolume, $testFileDirs, $testFileName) = File::Spec->splitpath($0);
+
+my $zip = Archive::Zip->new();
+my $testDir = File::Spec->catpath($testFileVolume, $testFileDirs, '');
+
+my $numberOfMembers = 0;
+my @memberNames;
+
+sub countMembers {
+    unless ($_ eq '.') { push(@memberNames, $_); $numberOfMembers++; }
+}
+File::Find::find(\&countMembers, $testDir);
+is($numberOfMembers > 1, 1, 'not enough members to test');
+
+# an initial updateTree() should act like an addTree()
+is($zip->updateTree($testDir), AZ_OK, 'initial updateTree failed');
+is(scalar($zip->members()),
+    $numberOfMembers, 'wrong number of members after create');
+
+my $firstFile   = $memberNames[0];
+my $firstMember = ($zip->members())[0];
+
+is($firstFile, $firstMember->fileName(), 'member name wrong');
+
+# add a file to the directory
+$testFileName = File::Spec->catpath($testFileVolume, $testFileDirs, 'xxxxxx');
+my $fh = IO::File->new($testFileName, 'w');
+$fh->print('xxxx');
+undef($fh);
+is(-f $testFileName, 1, "creating $testFileName failed");
+
+# Then update it. It should be added.
+is($zip->updateTree($testDir), AZ_OK, 'updateTree failed');
+is(
+    scalar($zip->members()),
+    $numberOfMembers + 1,
+    'wrong number of members after update'
+);
+
+# Delete the file.
+unlink($testFileName);
+is(-f $testFileName, undef, "deleting $testFileName failed");
+
+# updating without the mirror option should keep the members
+is($zip->updateTree($testDir), AZ_OK, 'updateTree failed');
+is(
+    scalar($zip->members()),
+    $numberOfMembers + 1,
+    'wrong number of members after update'
+);
+
+# now try again with the mirror option; should delete the last file.
+is($zip->updateTree($testDir, undef, undef, 1), AZ_OK, 'updateTree failed');
+is(scalar($zip->members()),
+    $numberOfMembers, 'wrong number of members after mirror');