Author: stephan
Date: 2007-02-23 21:02:57 +0000 (Fri, 23 Feb 2007)
New Revision: 25024
Added:
squeeze/trunk/tests/zip/test-gnu-tar-add.pl
Log:
add gnutar test script
Added: squeeze/trunk/tests/zip/test-gnu-tar-add.pl
===================================================================
--- squeeze/trunk/tests/zip/test-gnu-tar-add.pl (rev 0)
+++ squeeze/trunk/tests/zip/test-gnu-tar-add.pl 2007-02-23 21:02:57 UTC (rev
25024)
@@ -0,0 +1,29 @@
+#!/usr/bin/env perl
+chomp($cwd = `pwd`);
+my $test_archive = ["$cwd/data/test-archive.tar",
"$cwd/data/test-archive.tar.gz", "$cwd/data/test-archive.tar.bz2"];
+
+print "========================================";
+print "========================================\n";
+
+#for(i = 0; i <
+for $i (0 .. 2) {
+ print "Target archive:\n";
+ print "$test_archive->[1]\n";
+ @args = ("./test-add", "-n", $test_archive->[$i], "$cwd/data/3.txt");
+ system(@args) != 0
+ or die "system @args should fail: $?";
+
+ unlink $test_file;
+
+ @args = ("./test-add", "-n", $test_archive->[$i], "$cwd/data/1.txt");
+ system(@args) == 0
+ or die "system @args failed: $?";
+
+ @args = ("./test-add", "-a", $test_archive->[$i], "$cwd/data/2.txt");
+ system(@args) == 0
+ or die "system @args failed: $?";
+}
+
+print "========================================";
+print "========================================\n";
+
Property changes on: squeeze/trunk/tests/zip/test-gnu-tar-add.pl
___________________________________________________________________
Name: svn:executable
+ *
_______________________________________________
Xfce4-commits mailing list
[email protected]
http://foo-projects.org/mailman/listinfo/xfce4-commits
