Added tests 610-612 to test more SFTP post-quote commands.

This commit is contained in:
Dan Fandrich 2007-04-23 23:00:38 +00:00
parent 28dde78dde
commit 6a35841b2e
6 changed files with 171 additions and 1 deletions

24
tests/libtest/test610.pl Executable file
View file

@ -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;