From: Ken Raeburn <raeburn@mit.edu>
Date: Mon, 24 Nov 2008 20:27:44 +0000 (+0000)
Subject: Test with varying numbers of principal name components, of varying lengths.
X-Git-Tag: krb5-1.7-alpha1~197
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=d0b742ae97d201d661ce2701c836a4f706da820e;p=krb5.git

Test with varying numbers of principal name components, of varying lengths.
Test principal modifications, not just additions.

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

diff --git a/src/tests/dejagnu/krb-standalone/iprop.exp b/src/tests/dejagnu/krb-standalone/iprop.exp
index 91c8b7da4..54a71a34a 100644
--- a/src/tests/dejagnu/krb-standalone/iprop.exp
+++ b/src/tests/dejagnu/krb-standalone/iprop.exp
@@ -70,6 +70,23 @@ proc doit { } {
     if ![add_kerberos_key wakawaka 0] {
 	return
     }
+    set c chocolate-flavored-school-bus
+    # Long enough to make realloc likely, but not enough to grow
+    # basic ulog entry size.
+    set longname $c/$c/$c/$c/$c/$c/$c/$c/$c/$c/$c/$c/$c
+    if ![add_kerberos_key $longname 0] {
+	return
+    }
+    if ![add_kerberos_key w 0] {
+	return
+    }
+    if ![modify_principal w -allow_tix] {
+	return
+    }
+    if ![modify_principal w +allow_tix] {
+	return
+    }
+    # Should test rename_principal once we have that.
 
     # Run kproplog, look at output.
     setup_kerberos_env kdc
@@ -89,7 +106,7 @@ proc doit { } {
 	expect -re "Update log dump"
 	expect -re "First serial \# : 1"
 	if $des3_krbtgt {
-	    expect -re "Last serial \# : 4"
+	    expect -re "Last serial \# : 8"
 	    expect -re "Update Entry"
 	    expect -re "Update serial \# : 1"
 	    expect -re "Attributes changed : 15"
@@ -102,7 +119,7 @@ proc doit { } {
 	    expect -re "Update Entry"
 	    expect -re "Update serial \# : 4"
 	} else {
-	    expect -re "Last serial \# : 3"
+	    expect -re "Last serial \# : 7"
 	    expect -re "Update Entry"
 	    expect -re "Update serial \# : 1"
 	    expect -re "Attributes changed : 15"