mirror of
https://github.com/curl/curl.git
synced 2026-08-25 16:03:40 +03:00
Added tests 610-612 to test more SFTP post-quote commands.
This commit is contained in:
parent
28dde78dde
commit
6a35841b2e
6 changed files with 171 additions and 1 deletions
24
tests/libtest/test610.pl
Executable file
24
tests/libtest/test610.pl
Executable 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;
|
||||
Loading…
Add table
Add a link
Reference in a new issue