* default.exp: Add code to handle setting of PASS to constrain

	multipass testing to particular passes.  dejagnu-1.3 doesn't have
	support for PASS, so we kludge it here, though some later versions
	handle it by themselves.
	(krb_exit): Add new proc to clean up on exit.
	(kinit): Remove "expect \r" since "expect eof" will drain the pty
	buffer properly anyway.

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

diff --git a/src/tests/dejagnu/config/ChangeLog b/src/tests/dejagnu/config/ChangeLog
index 755425bc9296ba41d459207d5148f69386aef5b9..654529d0d13e847b1c94cdd431f3b62579c53433 100644 (file)
--- a/src/tests/dejagnu/config/ChangeLog
+++ b/src/tests/dejagnu/config/ChangeLog
@@ -1,3 +1,13 @@
+2000-07-22  Tom Yu  <tlyu@mit.edu>
+
+       * default.exp: Add code to handle setting of PASS to constrain
+       multipass testing to particular passes.  dejagnu-1.3 doesn't have
+       support for PASS, so we kludge it here, though some later versions
+       handle it by themselves.
+       (krb_exit): Add new proc to clean up on exit.
+       (kinit): Remove "expect \r" since "expect eof" will drain the pty
+       buffer properly anyway.
+
 2000-07-02  Tom Yu  <tlyu@mit.edu>
 
        * default.exp: Add rudimentary support for multiple passes.  For

diff --git a/src/tests/dejagnu/config/default.exp b/src/tests/dejagnu/config/default.exp
index d72a70f05f904363ded0dee587ad15dd474f2372..49b938be9f9ba1c86494f4a09a8fd239f8dd1c86 100644 (file)
--- a/src/tests/dejagnu/config/default.exp
+++ b/src/tests/dejagnu/config/default.exp
@@ -19,7 +19,7 @@ set des3_krbtgt 0
 set supported_enctypes "des-cbc-crc:normal"
 set kdc_supported_enctypes "des-cbc-crc:normal"
 
-set MULTIPASS {
+set passes {
     {
        des
        des3_krbtgt=0
@@ -50,6 +50,16 @@ set MULTIPASS {
     }
 }
 
+if [info exists PASS] {
+    foreach pass $passes {
+       if { [lsearch -exact $PASS [lindex $pass 0]] >= 0 } {
+           lappend MULTIPASS $pass
+       }
+    }
+} else {
+    set MULTIPASS $passes
+}
+
 set last_passname_conf ""
 set last_passname_db ""
 
@@ -1276,14 +1286,7 @@ proc kinit { name pass standalone } {
        }
     }
     send "$pass\r"
-    # This last expect seems useless, but without it the test hangs on
-    # AIX.
-    expect {
-        "\r" { }
-    }
-
     expect eof
-
     if ![check_exit_status kinit] {
        return 0
     }
@@ -1506,4 +1509,6 @@ proc setup_wrapper { file command } {
     return 1
 }
        
-
+proc krb_exit { } {
+    stop_kerberos_daemons
+}