From a253f3b44c1460986472020fd14afc99bb8ba17f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Love=20H=C3=B6rnquist=20=C3=85strand?= <lha@kth.se>
Date: Tue, 2 Jan 2007 12:43:11 +0000
Subject: [PATCH] test krb5_pac_get_types

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@19620 ec53bebd-3082-4978-b11e-865c3cabbd6b
---
 lib/krb5/test_pac.c | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/lib/krb5/test_pac.c b/lib/krb5/test_pac.c
index 1d0d6cc4a..4f0e716f5 100644
--- a/lib/krb5/test_pac.c
+++ b/lib/krb5/test_pac.c
@@ -211,6 +211,19 @@ main(int argc, char **argv)
     if (ret)
 	krb5_err(context, 1, ret, "_krb5_pac_verify 3");
 
+    {
+	uint32_t *list;
+	size_t len;
+	ret = krb5_pac_get_types(context, pac, &len, &list);
+	if (ret)
+	    krb5_err(context, 1, ret, "krb5_pac_get_types");
+	if (len != 2)
+	    krb5_errx(context, 1, "list wrong length");
+	if (list[0] != 1 || list[1] != 2)
+	    krb5_errx(context, 1, "list wrong content");
+	free(list);
+    }
+
     _krb5_pac_free(context, pac);
 
     return 0;