From: Ezra Peisach Date: Mon, 14 Oct 1996 12:07:03 +0000 (+0000) Subject: Test nlist and ls commands. The nlist command was failing on the Alpha's X-Git-Tag: krb5-1.0-freeze1~253 X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=b619bebed5da0d7e8131c29b5c93110bb9dd88f8;p=krb5.git Test nlist and ls commands. The nlist command was failing on the Alpha's for lack of STDARG usage. [krb5-appl/108] git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@9169 dc483132-0cff-0310-8789-dd5450dbe970 --- diff --git a/src/tests/dejagnu/krb-standalone/ChangeLog b/src/tests/dejagnu/krb-standalone/ChangeLog index 289de1766..87e60da32 100644 --- a/src/tests/dejagnu/krb-standalone/ChangeLog +++ b/src/tests/dejagnu/krb-standalone/ChangeLog @@ -1,3 +1,7 @@ +Mon Oct 14 08:05:11 1996 Ezra Peisach + + * gssftp.exp: Test ls and nlist commands. [krb5-appl/108] + Wed Aug 14 20:27:36 1996 Tom Yu * gssftp.exp: Do case insensitive match in case hostname doesn't diff --git a/src/tests/dejagnu/krb-standalone/gssftp.exp b/src/tests/dejagnu/krb-standalone/gssftp.exp index 51aaa9bf1..285d55012 100644 --- a/src/tests/dejagnu/krb-standalone/gssftp.exp +++ b/src/tests/dejagnu/krb-standalone/gssftp.exp @@ -206,6 +206,32 @@ proc ftp_test { } { pass $testname } + set testname "ls" + send "ls $tmppwd/ftp-test\r" + expect -re "Opening ASCII mode data connection for .*ls." + expect -re ".* $tmppwd/ftp-test" + expect "ftp> " { + pass $testname + } + + set testname "nlist" + send "nlist $tmppwd/ftp-test\r" + expect -re "Opening ASCII mode data connection for file list." + expect -re "$tmppwd/ftp-test" + expect -re ".* Transfer complete." + expect "ftp> " { + pass $testname + } + + set testname "ls missing" + send "ls $tmppwd/ftp-testmiss\r" + expect -re "Opening ASCII mode data connection for .*ls." + expect -re "$tmppwd/ftp-testmiss not found" + expect "ftp> " { + pass $testname + } + + set testname "get" catch "exec rm -f tmpdir/copy" send "get $tmppwd/ftp-test $tmppwd/copy\r"