1 files changed, 24 insertions, 0 deletions
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;