Work around bug in NetBSD expect. This is the same fix as

is found in gssapi.exp for dealing with AIX...

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

diff --git a/src/tests/dejagnu/krb-standalone/ChangeLog b/src/tests/dejagnu/krb-standalone/ChangeLog
index b34b3a5504e0b7c4ea48532959e66cc1cead1da6..e9fc309701ca24767c76995cc36633fb64337c8f 100644 (file)
--- a/src/tests/dejagnu/krb-standalone/ChangeLog
+++ b/src/tests/dejagnu/krb-standalone/ChangeLog
@@ -1,3 +1,7 @@
+Sat Oct  7 08:02:08 1995  Ezra Peisach  <epeisach@kangaroo.mit.edu>
+
+       * sample.exp: Make changes to deal with NetBSD expect. Similar to
+               the AIX fix in gssapi.exp
 
 Thu Aug 31 12:02:36 EDT 1995   Paul Park       (pjpark@mit.edu)
        * gssapi.exp - Repeat tests with -v2 switch.

diff --git a/src/tests/dejagnu/krb-standalone/sample.exp b/src/tests/dejagnu/krb-standalone/sample.exp
index 6180fe92807a0c1d6fe3f8b199cb4d2be990be2b..03c5557dad8c8060bbefb691dc3f568c02a784d8 100644 (file)
--- a/src/tests/dejagnu/krb-standalone/sample.exp
+++ b/src/tests/dejagnu/krb-standalone/sample.exp
@@ -120,13 +120,18 @@ proc test_sclient { msg } {
      }
 
     expect {
-       "You are krbtest/admin@KRBTEST.COM" {
+       "You are krbtest/admin@KRBTEST.COM\r" {
                verbose "received valid sample message"}
        eof {
                fail $msg 
                return 0
            }
     }
+    # This last expect seems useless, but without it the test hangs on
+    # NETBSD.
+    expect {
+        "\r" { }
+    }
 
     if ![check_exit_status "ssample"] {
        return 0