diff options
author | Ezra Peisach <epeisach@mit.edu> | 2001-12-05 22:26:52 +0000 |
---|---|---|
committer | Ezra Peisach <epeisach@mit.edu> | 2001-12-05 22:26:52 +0000 |
commit | eceae3a3f303d8482d0e2a6f936bfb43bc930df0 (patch) | |
tree | ea569e0fe92c03f73f884340f9967161fa28a108 | |
parent | b5d0774905cb57593edc5ea28a016246517367a6 (diff) | |
download | krb5-eceae3a3f303d8482d0e2a6f936bfb43bc930df0.tar.gz krb5-eceae3a3f303d8482d0e2a6f936bfb43bc930df0.tar.xz krb5-eceae3a3f303d8482d0e2a6f936bfb43bc930df0.zip |
* rsh.exp: Fix date-grabbing regexp to deal with older versions of
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
-rw-r--r-- | src/tests/dejagnu/krb-standalone/ChangeLog | 7 | ||||
-rw-r--r-- | src/tests/dejagnu/krb-standalone/rsh.exp | 2 |
2 files changed, 7 insertions, 2 deletions
diff --git a/src/tests/dejagnu/krb-standalone/ChangeLog b/src/tests/dejagnu/krb-standalone/ChangeLog index dc0eb5252..86135593c 100644 --- a/src/tests/dejagnu/krb-standalone/ChangeLog +++ b/src/tests/dejagnu/krb-standalone/ChangeLog @@ -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 diff --git a/src/tests/dejagnu/krb-standalone/rsh.exp b/src/tests/dejagnu/krb-standalone/rsh.exp index 73b9f5534..5d1d905b1 100644 --- a/src/tests/dejagnu/krb-standalone/rsh.exp +++ b/src/tests/dejagnu/krb-standalone/rsh.exp @@ -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 { |