* rsh.exp: Fix date-grabbing regexp to deal with older versions of
authorEzra Peisach <epeisach@mit.edu>
Wed, 5 Dec 2001 22:26:52 +0000 (22:26 +0000)
committerEzra Peisach <epeisach@mit.edu>
Wed, 5 Dec 2001 22:26:52 +0000 (22:26 +0000)
        expect/tcl that have limited regexp capabilities.

Pullup from 1-2-3 branch

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

src/tests/dejagnu/krb-standalone/ChangeLog
src/tests/dejagnu/krb-standalone/rsh.exp

index dc0eb52522e9d357dbaefd97ba12d3eb9da8291a..86135593c62227372695faea0f47caf91eb5c322 100644 (file)
@@ -1,4 +1,9 @@
-2001-11-02  Tom Yu  <tlyu@mit.edu>
+2001-11-06  Tom Yu  <tlyu@mit.edu>
+
+        * rsh.exp: Fix date-grabbing regexp to deal with older versions of
+       expect/tcl that have limited regexp capabilities.
+
+12001-11-02  Tom Yu  <tlyu@mit.edu>
 
        * rsh.exp: Fix date grabbing code so we don't try to parse the
        timezone-less date out of of a syslog message.  expect eof in
index 73b9f5534121a51b8216ef6e832ef00e23a9d8de..5d1d905b1005e8694d437b980a45b198bc465cb3 100644 (file)
@@ -97,7 +97,7 @@ proc rsh_test { } {
     set testname "date"
     spawn $RSH $hostname -k $REALMNAME -D 3544 -A date
     expect {
-       -re "\[A-Za-z0-9\]+ \[A-Za-z0-9\]+ +\[0-9\]+ \[0-9\]{2}:\[0-9\]{2}:\[0-9\]{2} \[A-Za-z0-9\]+ \[0-9\]{4}\r\n" {
+       -re "\[A-Za-z0-9\]+ \[A-Za-z0-9\]+ +\[0-9\]+ \[0-9\]+:\[0-9\]+:\[0-9\]+ \[A-Za-z0-9\]+ \[0-9\]+\r\n" {
            set result $expect_out(0,string)
        }
        timeout {