From: Tom Yu <tlyu@mit.edu>
Date: Thu, 15 Aug 1996 00:42:51 +0000 (+0000)
Subject: 	* gssftp.exp: Do case insensitive match in case hostname doesn't
X-Git-Tag: krb5-1.0-beta7~146
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=3ce2798c8a94b4e9c688c7defb609be218b05b44;p=krb5.git

	* gssftp.exp: Do case insensitive match in case hostname doesn't
		get downcased.

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@8936 dc483132-0cff-0310-8789-dd5450dbe970
---

diff --git a/src/tests/dejagnu/krb-standalone/gssftp.exp b/src/tests/dejagnu/krb-standalone/gssftp.exp
index 748793ad1..51aaa9bf1 100644
--- a/src/tests/dejagnu/krb-standalone/gssftp.exp
+++ b/src/tests/dejagnu/krb-standalone/gssftp.exp
@@ -175,7 +175,7 @@ proc ftp_test { } {
     }
 
     set testname "ftp connection"
-    expect "Connected to $hostname"
+    expect -nocase "connected to $hostname"
     expect -nocase -re "$localhostname.*ftp server .version \[0-9.\]*. ready."
     expect -re "Using authentication type GSSAPI; ADAT must follow"
     expect "GSSAPI accepted as authentication type"
@@ -183,7 +183,7 @@ proc ftp_test { } {
 	"GSSAPI authentication succeeded" { pass "ftp authentication" }
 	eof	{ fail "ftp authentication" ; catch "expect_after" ; return }
     }
-    expect "Name ($hostname:$env(USER)): "
+    expect -nocase "name ($hostname:$env(USER)): "
     send "$env(USER)\r"
     expect "User $env(USER) logged in."
 #    expect "Remote system type is UNIX."
@@ -200,7 +200,7 @@ proc ftp_test { } {
 
     set testname "status"
     send "status\r"
-    expect "Connected to $hostname."
+    expect -nocase "connected to $hostname."
     expect "Authentication type: GSSAPI"
     expect "ftp> " {
 	pass $testname