From 3ce2798c8a94b4e9c688c7defb609be218b05b44 Mon Sep 17 00:00:00 2001 From: Tom Yu Date: Thu, 15 Aug 1996 00:42:51 +0000 Subject: [PATCH] * 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 --- src/tests/dejagnu/krb-standalone/gssftp.exp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 2.26.2