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 289de1766d508351cadabf6a3a959a0ea43b6ce3..87e60da326d6238df80b6565c55a7a3e228dc849 100644 (file)
--- 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 51aaa9bf19409570434603a02e6cf1b5e99ed5c6..285d550127695345117eba924c422b5c629e7e2a 100644 (file)
--- 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"