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"
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
);