2 * Copyright (c) 2003 Kungliga Tekniska Högskolan
3 * (Royal Institute of Technology, Stockholm, Sweden).
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
17 * 3. Neither the name of KTH nor the names of its contributors may be
18 * used to endorse or promote products derived from this software without
19 * specific prior written permission.
21 * THIS SOFTWARE IS PROVIDED BY KTH AND ITS CONTRIBUTORS ``AS IS'' AND ANY
22 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
24 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL KTH OR ITS CONTRIBUTORS BE
25 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
26 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
27 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
28 * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
29 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
30 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
31 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */
33 #include "krb5_locl.h"
36 RCSID("$Id: test_princ.c 22071 2007-11-14 20:04:50Z lha $");
39 * Check that a closed cc still keeps it data and that it's no longer
40 * there when it's destroyed.
44 test_princ(krb5_context context)
46 const char *princ = "lha@SU.SE";
47 const char *princ_short = "lha";
51 char *princ_reformed = NULL;
56 ret = krb5_parse_name(context, princ, &p);
58 krb5_err(context, 1, ret, "krb5_parse_name");
60 ret = krb5_unparse_name(context, p, &princ_unparsed);
62 krb5_err(context, 1, ret, "krb5_parse_name");
64 if (strcmp(princ, princ_unparsed)) {
65 krb5_errx(context, 1, "%s != %s", princ, princ_unparsed);
70 ret = krb5_unparse_name_flags(context, p,
71 KRB5_PRINCIPAL_UNPARSE_NO_REALM,
74 krb5_err(context, 1, ret, "krb5_parse_name");
76 if (strcmp(princ_short, princ_unparsed))
77 krb5_errx(context, 1, "%s != %s", princ_short, princ_unparsed);
80 realm = krb5_principal_get_realm(context, p);
82 asprintf(&princ_reformed, "%s@%s", princ_short, realm);
84 ret = krb5_parse_name(context, princ_reformed, &p2);
87 krb5_err(context, 1, ret, "krb5_parse_name");
89 if (!krb5_principal_compare(context, p, p2)) {
90 krb5_errx(context, 1, "p != p2");
93 krb5_free_principal(context, p2);
95 ret = krb5_set_default_realm(context, "SU.SE");
97 krb5_err(context, 1, ret, "krb5_parse_name");
99 ret = krb5_unparse_name_flags(context, p,
100 KRB5_PRINCIPAL_UNPARSE_SHORT,
103 krb5_err(context, 1, ret, "krb5_parse_name");
105 if (strcmp(princ_short, princ_unparsed))
106 krb5_errx(context, 1, "'%s' != '%s'", princ_short, princ_unparsed);
107 free(princ_unparsed);
109 ret = krb5_parse_name(context, princ_short, &p2);
111 krb5_err(context, 1, ret, "krb5_parse_name");
113 if (!krb5_principal_compare(context, p, p2))
114 krb5_errx(context, 1, "p != p2");
115 krb5_free_principal(context, p2);
117 ret = krb5_unparse_name(context, p, &princ_unparsed);
119 krb5_err(context, 1, ret, "krb5_parse_name");
121 if (strcmp(princ, princ_unparsed))
122 krb5_errx(context, 1, "'%s' != '%s'", princ, princ_unparsed);
123 free(princ_unparsed);
125 ret = krb5_set_default_realm(context, "SAMBA.ORG");
127 krb5_err(context, 1, ret, "krb5_parse_name");
129 ret = krb5_parse_name(context, princ_short, &p2);
131 krb5_err(context, 1, ret, "krb5_parse_name");
133 if (krb5_principal_compare(context, p, p2))
134 krb5_errx(context, 1, "p == p2");
136 if (!krb5_principal_compare_any_realm(context, p, p2))
137 krb5_errx(context, 1, "(ignoring realms) p != p2");
139 ret = krb5_unparse_name(context, p2, &princ_unparsed);
141 krb5_err(context, 1, ret, "krb5_parse_name");
143 if (strcmp(princ, princ_unparsed) == 0)
144 krb5_errx(context, 1, "%s == %s", princ, princ_unparsed);
145 free(princ_unparsed);
147 krb5_free_principal(context, p2);
149 ret = krb5_parse_name(context, princ, &p2);
151 krb5_err(context, 1, ret, "krb5_parse_name");
153 if (!krb5_principal_compare(context, p, p2))
154 krb5_errx(context, 1, "p != p2");
156 ret = krb5_unparse_name(context, p2, &princ_unparsed);
158 krb5_err(context, 1, ret, "krb5_parse_name");
160 if (strcmp(princ, princ_unparsed))
161 krb5_errx(context, 1, "'%s' != '%s'", princ, princ_unparsed);
162 free(princ_unparsed);
164 krb5_free_principal(context, p2);
166 ret = krb5_unparse_name_flags(context, p,
167 KRB5_PRINCIPAL_UNPARSE_SHORT,
170 krb5_err(context, 1, ret, "krb5_unparse_name_short");
172 if (strcmp(princ, princ_unparsed) != 0)
173 krb5_errx(context, 1, "'%s' != '%s'", princ, princ_unparsed);
174 free(princ_unparsed);
176 ret = krb5_unparse_name(context, p, &princ_unparsed);
178 krb5_err(context, 1, ret, "krb5_unparse_name_short");
180 if (strcmp(princ, princ_unparsed))
181 krb5_errx(context, 1, "'%s' != '%s'", princ, princ_unparsed);
182 free(princ_unparsed);
184 ret = krb5_parse_name_flags(context, princ,
185 KRB5_PRINCIPAL_PARSE_NO_REALM,
188 krb5_err(context, 1, ret, "Should have failed to parse %s a "
189 "short name", princ);
191 ret = krb5_parse_name_flags(context, princ_short,
192 KRB5_PRINCIPAL_PARSE_NO_REALM,
195 krb5_err(context, 1, ret, "krb5_parse_name");
197 ret = krb5_unparse_name_flags(context, p2,
198 KRB5_PRINCIPAL_UNPARSE_NO_REALM,
200 krb5_free_principal(context, p2);
202 krb5_err(context, 1, ret, "krb5_unparse_name_norealm");
204 if (strcmp(princ_short, princ_unparsed))
205 krb5_errx(context, 1, "'%s' != '%s'", princ_short, princ_unparsed);
206 free(princ_unparsed);
208 ret = krb5_parse_name_flags(context, princ_short,
209 KRB5_PRINCIPAL_PARSE_MUST_REALM,
212 krb5_err(context, 1, ret, "Should have failed to parse %s "
213 "because it lacked a realm", princ_short);
215 ret = krb5_parse_name_flags(context, princ,
216 KRB5_PRINCIPAL_PARSE_MUST_REALM,
219 krb5_err(context, 1, ret, "krb5_parse_name");
221 if (!krb5_principal_compare(context, p, p2))
222 krb5_errx(context, 1, "p != p2");
224 ret = krb5_unparse_name_flags(context, p2,
225 KRB5_PRINCIPAL_UNPARSE_NO_REALM,
227 krb5_free_principal(context, p2);
229 krb5_err(context, 1, ret, "krb5_unparse_name_norealm");
231 if (strcmp(princ_short, princ_unparsed))
232 krb5_errx(context, 1, "'%s' != '%s'", princ_short, princ_unparsed);
233 free(princ_unparsed);
235 krb5_free_principal(context, p);
239 princ = "test\\ principal@SU.SE";
240 noquote = "test principal@SU.SE";
242 ret = krb5_parse_name_flags(context, princ, 0, &p);
244 krb5_err(context, 1, ret, "krb5_parse_name");
246 ret = krb5_unparse_name_flags(context, p, 0, &princ_unparsed);
248 krb5_err(context, 1, ret, "krb5_unparse_name_flags");
250 if (strcmp(princ, princ_unparsed))
251 krb5_errx(context, 1, "q '%s' != '%s'", princ, princ_unparsed);
252 free(princ_unparsed);
254 ret = krb5_unparse_name_flags(context, p, KRB5_PRINCIPAL_UNPARSE_DISPLAY,
257 krb5_err(context, 1, ret, "krb5_unparse_name_flags");
259 if (strcmp(noquote, princ_unparsed))
260 krb5_errx(context, 1, "nq '%s' != '%s'", noquote, princ_unparsed);
261 free(princ_unparsed);
263 krb5_free_principal(context, p);
267 test_enterprise(krb5_context context)
273 ret = krb5_set_default_realm(context, "SAMBA.ORG");
275 krb5_err(context, 1, ret, "krb5_parse_name");
277 ret = krb5_parse_name_flags(context, "lha@su.se@WIN.SU.SE",
278 KRB5_PRINCIPAL_PARSE_ENTERPRISE, &p);
280 krb5_err(context, 1, ret, "krb5_parse_name_flags");
282 ret = krb5_unparse_name(context, p, &unparsed);
284 krb5_err(context, 1, ret, "krb5_unparse_name");
286 krb5_free_principal(context, p);
288 if (strcmp(unparsed, "lha\\@su.se@WIN.SU.SE") != 0)
289 krb5_errx(context, 1, "enterprise name failed 1");
296 ret = krb5_parse_name_flags(context, "lha\\@su.se@WIN.SU.SE",
297 KRB5_PRINCIPAL_PARSE_ENTERPRISE, &p);
299 krb5_err(context, 1, ret, "krb5_parse_name_flags");
301 ret = krb5_unparse_name(context, p, &unparsed);
303 krb5_err(context, 1, ret, "krb5_unparse_name");
305 krb5_free_principal(context, p);
306 if (strcmp(unparsed, "lha\\@su.se\\@WIN.SU.SE@SAMBA.ORG") != 0)
307 krb5_errx(context, 1, "enterprise name failed 2: %s", unparsed);
314 ret = krb5_parse_name_flags(context, "lha\\@su.se@WIN.SU.SE", 0, &p);
316 krb5_err(context, 1, ret, "krb5_parse_name_flags");
318 ret = krb5_unparse_name(context, p, &unparsed);
320 krb5_err(context, 1, ret, "krb5_unparse_name");
322 krb5_free_principal(context, p);
323 if (strcmp(unparsed, "lha\\@su.se@WIN.SU.SE") != 0)
324 krb5_errx(context, 1, "enterprise name failed 3");
331 ret = krb5_parse_name_flags(context, "lha@su.se",
332 KRB5_PRINCIPAL_PARSE_ENTERPRISE, &p);
334 krb5_err(context, 1, ret, "krb5_parse_name_flags");
336 ret = krb5_unparse_name(context, p, &unparsed);
338 krb5_err(context, 1, ret, "krb5_unparse_name");
340 krb5_free_principal(context, p);
341 if (strcmp(unparsed, "lha\\@su.se@SAMBA.ORG") != 0)
342 krb5_errx(context, 1, "enterprise name failed 2: %s", unparsed);
348 main(int argc, char **argv)
350 krb5_context context;
353 setprogname(argv[0]);
355 ret = krb5_init_context(&context);
357 errx (1, "krb5_init_context failed: %d", ret);
361 test_enterprise(context);
363 krb5_free_context(context);