[Xfce4-commits] r25024 - squeeze/trunk/tests/zip

[Stephan Arts]

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
   + *