* default.exp (start_kerberos_daemons): If we get a timeout

	looking for the mark, log out the last 10 lines of the kdc
	logfile.

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

diff --git a/src/tests/dejagnu/config/ChangeLog b/src/tests/dejagnu/config/ChangeLog
index 980203378c347e29208778b32188715e475f0957..95408ed5d874ac15dbf81972a52168c6a0943976 100644 (file)
--- a/src/tests/dejagnu/config/ChangeLog
+++ b/src/tests/dejagnu/config/ChangeLog
@@ -1,3 +1,9 @@
+2003-03-28  Tom Yu  <tlyu@mit.edu>
+
+       * default.exp (start_kerberos_daemons): If we get a timeout
+       looking for the mark, log out the last 10 lines of the kdc
+       logfile.
+
 2003-03-26  Tom Yu  <tlyu@mit.edu>
 
        * default.exp (v4kinit): Expect failure when kiniting to a des3

diff --git a/src/tests/dejagnu/config/default.exp b/src/tests/dejagnu/config/default.exp
index 33a75153860a25d9b346c37679ad17f521b4f384..b53f68bed862d64316cf00d388488f5fc8065c5e 100644 (file)
--- a/src/tests/dejagnu/config/default.exp
+++ b/src/tests/dejagnu/config/default.exp
@@ -1255,6 +1255,7 @@ proc start_kerberos_daemons { standalone } {
     set markstr "===MARK $tailf_pid [exec date] ==="
     set f [open $kdc_lfile a]
     puts $f $markstr
+    flush $f
     close $f
 
     expect {
@@ -1262,6 +1263,8 @@ proc start_kerberos_daemons { standalone } {
        -ex "$markstr\r\n" { }
        -re "\[^\r\n\]*\r\n" { exp_continue }
        timeout {
+           verbose -log "tail $kdc_lfile output:"
+           verbose -log [exec tail $kdc_lfile]
            if {$standalone} {
                verbose -log "tail -f timed out ($timeout sec) looking for mark in kdc log"
                fail "krb5kdc"