From 44af4c5ea85f75350244df1abeccb19e1bab8705 Mon Sep 17 00:00:00 2001
From: Tom Yu <tlyu@mit.edu>
Date: Thu, 26 Oct 2006 19:20:42 +0000
Subject: [PATCH] pull up r18691 from trunk

 r18691@cathode-dark-space:  raeburn | 2006-10-11 23:47:05 -0400
 ticket: 4355
 tags: pullup
 target_version: 1.5.2

 Add a policy to the database, then after the dump and restore, check
 that it's still there.


ticket: 43355
version_fixed: 1.5.2

git-svn-id: svn://anonsvn.mit.edu/krb5/branches/krb5-1-5@18739 dc483132-0cff-0310-8789-dd5450dbe970
---
 .../dejagnu/krb-standalone/standalone.exp     | 31 +++++++++++++++++++
 1 file changed, 31 insertions(+)

diff --git a/src/tests/dejagnu/krb-standalone/standalone.exp b/src/tests/dejagnu/krb-standalone/standalone.exp
index 3799a51ab..9a92b9303 100644
--- a/src/tests/dejagnu/krb-standalone/standalone.exp
+++ b/src/tests/dejagnu/krb-standalone/standalone.exp
@@ -99,6 +99,20 @@ proc doit { } {
 	return
     }
 
+    spawn $KADMIN_LOCAL -q "addpol fred"
+    catch expect_after
+    expect {
+	timeout {
+	    fail "kadmin.local addpol fred"
+	}
+	eof {
+	    pass "kadmin.local addpol fred"
+	}
+    }
+    set k_stat [wait -i $spawn_id]
+    verbose "wait -i $spawn_id returned $k_stat (kadmin addpol)"
+    catch "close -i $spawn_id"
+
     # Use ksrvutil to create a srvtab entry.
     if ![setup_srvtab 1] {
 	return
@@ -107,6 +121,23 @@ proc doit { } {
     # Test dump and load.  Continue on, whatever the result.
     dump_and_reload
 
+    spawn $KADMIN_LOCAL -q "getpols"
+    expect {
+	fred {
+	    pass "kadmin.local getpols"
+	    expect eof
+	}
+	timeout {
+	    fail "kadmin.local getpols"
+	}
+	eof {
+	    fail "kadmin.local getpols"
+	}
+    }
+    set k_stat [wait -i $spawn_id]
+    verbose "wait -i $spawn_id returned $k_stat (kadmin addpol)"
+    catch "close -i $spawn_id"
+
     # Use kinit to get a ticket.
     if ![kinit krbtest/admin adminpass$KEY 1] {
 	return
-- 
2.26.2