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

2 files changed, 30 insertions, 0 deletions

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  <epeisach@kangaroo.mit.edu>
+
+	* gssftp.exp: Test ls and nlist commands. [krb5-appl/108]
+
 Wed Aug 14 20:27:36 1996  Tom Yu  <tlyu@mit.edu>
 
 	* 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"