diff options
Diffstat (limited to 'src/tests/dejagnu/krb-standalone/standalone.exp')
| -rw-r--r-- | src/tests/dejagnu/krb-standalone/standalone.exp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/tests/dejagnu/krb-standalone/standalone.exp b/src/tests/dejagnu/krb-standalone/standalone.exp index 5cde955cba..0b3a4b0bf7 100644 --- a/src/tests/dejagnu/krb-standalone/standalone.exp +++ b/src/tests/dejagnu/krb-standalone/standalone.exp @@ -1,4 +1,4 @@ -# Standalone Kerberos test. + # Standalone Kerberos test. # This is a DejaGnu test script. # This script tests that the Kerberos tools can talk to each other. @@ -28,6 +28,7 @@ if ![setup_kerberos_db 1] { # processes when the procedure ends. proc doit { } { + global REALMNAME global KLIST global KDESTROY global KEY @@ -58,7 +59,7 @@ proc doit { } { # Make sure that klist can see the ticket. spawn $KLIST expect { - -re "Ticket cache:\[ \]*$tmppwd/tkt.*Default principal:\[ \]*krbtest/admin@KRBTEST.COM.*krbtgt/KRBTEST.COM@KRBTEST.COM\r\n" { + -re "Ticket cache:\[ \]*$tmppwd/tkt.*Default principal:\[ \]*krbtest/admin@$REALMNAME.*krbtgt/$REALMNAME@$REALMNAME\r\n" { verbose "klist started" } timeout { |