From 6a35841b2edcbd865e914ec33ea0568199a26a8a Mon Sep 17 00:00:00 2001
From: Dan Fandrich <dan@coneharvesters.com>
Date: Mon, 23 Apr 2007 23:00:38 +0000
Subject: Added tests 610-612 to test more SFTP post-quote commands.

---
 tests/libtest/test610.pl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 tests/libtest/test610.pl

(limited to 'tests/libtest')

diff --git a/tests/libtest/test610.pl b/tests/libtest/test610.pl
new file mode 100755
index 000000000..5d7c1f6aa
--- /dev/null
+++ b/tests/libtest/test610.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/env perl
+# Create and remove directories and check their existence
+if ( $#ARGV != 1 ) 
+{
+	print "Usage: $0 mkdir|rmdir|gone path\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;
+}
+print "Unsupported command $ARGV[0]\n";
+exit 1;
-- 
cgit v1.2.3