* 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 1b48d50fc1863d02beca9adda0eb61e43692bf88..3744efdf8683cf3a7e5a94d6b8560d738d1eb31a 100644 (file)
--- 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 d3244ebafa8f33957864c7ea9cc0ecef14050399..9035a1257248c3dd04303325a77a029bd93d3144 100644 (file)
--- 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
        }
     }