From 040a4443a1d36447535d45953d385a8d70f3b064 Mon Sep 17 00:00:00 2001
From: Dan Fandrich <dan@coneharvesters.com>
Date: Thu, 13 Mar 2008 22:51:39 +0000
Subject: Added tests 622-625 to test SFTP/SCP uploads. Test 625 was an attempt
 to reproduce the --ftp-create-dirs problem reported by Brian Ulm, but that
 seems to need a call curl_easy_reset() which this test case doesn't do.

---
 tests/libtest/test610.pl | 47 ++++++++++++++++++++++++++++-------------------
 1 file changed, 28 insertions(+), 19 deletions(-)

(limited to 'tests/libtest')

diff --git a/tests/libtest/test610.pl b/tests/libtest/test610.pl
index 5d7c1f6aa..4b6903a30 100755
--- a/tests/libtest/test610.pl
+++ b/tests/libtest/test610.pl
@@ -1,24 +1,33 @@
 #!/usr/bin/env perl
-# Create and remove directories and check their existence
-if ( $#ARGV != 1 ) 
+# Perform simple file and directory manipulation in a portable way
+if ( $#ARGV <= 0 ) 
 {
-	print "Usage: $0 mkdir|rmdir|gone path\n";
+	print "Usage: $0 mkdir|rmdir|unlink|move|gone path1 [path2] [more commands...]\n";
 	exit 1;
 }
-if ($ARGV[0] eq "mkdir")
-{
-	mkdir $ARGV[1] || die "$!";
-	exit 0;
-}
-elsif ($ARGV[0] eq "rmdir")
-{
-	rmdir $ARGV[1] || die "$!";
-	exit 0;
-}
-elsif ($ARGV[0] eq "gone")
-{
-	! -e $ARGV[1] || die "Path $ARGV[1] exists";
-	exit 0;
+
+use File::Copy;
+while(@ARGV) {
+	my $cmd = shift @ARGV;
+	my $arg = shift @ARGV;
+	if ($cmd eq "mkdir") {
+		mkdir $arg || die "$!";
+	}
+	elsif ($cmd eq "rmdir") {
+		rmdir $arg || die "$!";
+	}
+	elsif ($cmd eq "rm") {
+		unlink $arg || die "$!";
+	}
+	elsif ($cmd eq "move") {
+		my $arg2 = shift @ARGV;
+		move($arg,$arg2) || die "$!";
+	}
+	elsif ($cmd eq "gone") {
+		! -e $arg || die "Path $arg exists";
+	} else {
+		print "Unsupported command $cmd\n";
+		exit 1;
+	}
 }
-print "Unsupported command $ARGV[0]\n";
-exit 1;
+exit 0;
-- 
cgit v1.2.3