From: Ken Raeburn <raeburn@mit.edu>
Date: Thu, 12 Oct 2006 03:47:05 +0000 (+0000)
Subject: Add a policy to the database, then after the dump and restore, check
X-Git-Tag: krb5-1.6-alpha1~71
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=d4d17e3496d17b7a6a4c72985fcff74c41ced435;p=krb5.git

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

ticket: 4355
tags: pullup
target_version: 1.5.2

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

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