From: Barry Jaspan <bjaspan@mit.edu>
Date: Thu, 14 Nov 1996 20:20:43 +0000 (+0000)
Subject: 	* telnet.exp: telnet may output fqdn in upper-case
X-Git-Tag: krb5-1.0-freeze1~14
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=2fabbb429cac7f52d1ac60562520d9404cf222d5;p=krb5.git

	* telnet.exp: telnet may output fqdn in upper-case

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

diff --git a/src/tests/dejagnu/krb-root/ChangeLog b/src/tests/dejagnu/krb-root/ChangeLog
index 1b48d50fc..3744efdf8 100644
--- a/src/tests/dejagnu/krb-root/ChangeLog
+++ b/src/tests/dejagnu/krb-root/ChangeLog
@@ -1,3 +1,7 @@
+Thu Nov 14 15:20:19 1996  Barry Jaspan  <bjaspan@mit.edu>
+
+	* telnet.exp: telnet may output fqdn in upper-case
+
 Mon Nov 11 20:53:38 1996  Mark Eichin  <eichin@cygnus.com>
 	Tue Sep 17 18:30:57 1996  Ken Raeburn  <raeburn@cygnus.com>
 
diff --git a/src/tests/dejagnu/krb-root/telnet.exp b/src/tests/dejagnu/krb-root/telnet.exp
index d3244ebaf..9035a1257 100644
--- a/src/tests/dejagnu/krb-root/telnet.exp
+++ b/src/tests/dejagnu/krb-root/telnet.exp
@@ -183,8 +183,10 @@ proc telnet_test { } {
 
     set testname "telnet status"
     send "status\r"
+    # use -nocase because telnet may output the fqdn in upper-case;
+    # however, -nocase requires the whole pattern to be in lower case
     expect {
-	-re "Connected to $localhostname.*Operating in single character mode.*Catching signals locally.*Remote character echo.*flow control.*Escape character is '.\]'" {
+	-nocase -re "connected to $localhostname.*operating in single character mode.*catching signals locally.*remote character echo.*flow control.*escape character is '.\]'" {
 	    pass $testname
 	}
     }