1 files changed, 84 insertions, 0 deletions
diff --git a/t/03_ex.t b/t/03_ex.t
new file mode 100644
index 0000000..84a8c71
--- /dev/null
+++ b/t/03_ex.t
@@ -0,0 +1,84 @@
+#!/usr/bin/perl
+
+use strict;
+
+BEGIN {
+    $|  = 1;
+    $^W = 1;
+}
+use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
+use File::Spec;
+use IO::File;
+
+use Test::More tests => 17;
+use t::common;
+
+sub runPerlCommand {
+    my $libs = join(' -I', @INC);
+    my $cmd = "\"$^X\" \"-I$libs\" -w \"" . join('" "', @_) . '"';
+    my $output = `$cmd`;
+    return wantarray ? ($?, $output) : $?;
+}
+
+use constant FILENAME => File::Spec->catpath('', TESTDIR, 'testing.txt');
+use constant ZFILENAME => TESTDIR . "/testing.txt";    # name in zip
+
+my $zip = Archive::Zip->new();
+isa_ok($zip, 'Archive::Zip');
+$zip->addString(TESTSTRING, FILENAME);
+$zip->writeToFileNamed(INPUTZIP);
+
+my ($status, $output);
+my $fh = IO::File->new("test.log", "w");
+isa_ok($fh, 'IO::File');
+
+is(runPerlCommand('examples/copy.pl', INPUTZIP, OUTPUTZIP), 0);
+
+is(runPerlCommand('examples/extract.pl', OUTPUTZIP, ZFILENAME), 0);
+
+is(runPerlCommand('examples/mfh.pl', INPUTZIP), 0);
+
+is(runPerlCommand('examples/zip.pl', OUTPUTZIP, INPUTZIP, FILENAME), 0);
+
+($status, $output) = runPerlCommand('examples/zipinfo.pl', INPUTZIP);
+is($status, 0);
+$fh->print("zipinfo output:\n");
+$fh->print($output);
+
+($status, $output) = runPerlCommand('examples/ziptest.pl', INPUTZIP);
+is($status, 0);
+$fh->print("ziptest output:\n");
+$fh->print($output);
+
+($status, $output) = runPerlCommand('examples/zipGrep.pl', '100', INPUTZIP);
+is($status, 0);
+is($output, ZFILENAME . ":100\n");
+
+# calcSizes.pl
+# creates test.zip, may be sensitive to /dev/null
+
+# removed because requires IO::Scalar
+# ok( runPerlCommand('examples/readScalar.pl'), 0 );
+
+unlink(OUTPUTZIP);
+is(runPerlCommand('examples/selfex.pl', OUTPUTZIP, FILENAME), 0);
+unlink(FILENAME);
+is(runPerlCommand(OUTPUTZIP), 0);
+my $fn = File::Spec->catpath('', File::Spec->catdir('extracted', TESTDIR),
+    'testing.txt');
+is(-f $fn, 1, "$fn exists");
+
+# unzipAll.pl
+# updateZip.pl
+# writeScalar.pl
+# zipcheck.pl
+# ziprecent.pl
+
+unlink(OUTPUTZIP);
+is(runPerlCommand('examples/updateTree.pl', OUTPUTZIP, TESTDIR),
+    0, "updateTree.pl create");
+is(-f OUTPUTZIP, 1, "zip created");
+is(runPerlCommand('examples/updateTree.pl', OUTPUTZIP, TESTDIR),
+    0, "updateTree.pl update");
+is(-f OUTPUTZIP, 1, "zip updated");
+unlink(OUTPUTZIP);