lib/krb5/test_princ.c

42 test_princ(krb5_context context)
54     ret = krb5_parse_name(context, princ, &p);
56 	krb5_err(context, 1, ret, "krb5_parse_name");
58     ret = krb5_unparse_name(context, p, &princ_unparsed);
60 	krb5_err(context, 1, ret, "krb5_parse_name");
63 	krb5_errx(context, 1, "%s != %s", princ, princ_unparsed);
68     ret = krb5_unparse_name_flags(context, p,
72 	krb5_err(context, 1, ret, "krb5_parse_name");
75 	krb5_errx(context, 1, "%s != %s", princ_short, princ_unparsed);
78     realm = krb5_principal_get_realm(context, p);
83     ret = krb5_parse_name(context, princ_reformed, &p2);
86 	krb5_err(context, 1, ret, "krb5_parse_name");
88     if (!krb5_principal_compare(context, p, p2)) {
89 	krb5_errx(context, 1, "p != p2");
92     krb5_free_principal(context, p2);
94     ret = krb5_set_default_realm(context, "SU.SE");
96 	krb5_err(context, 1, ret, "krb5_parse_name");
98     ret = krb5_unparse_name_flags(context, p,
102 	krb5_err(context, 1, ret, "krb5_parse_name");
105 	krb5_errx(context, 1, "'%s' != '%s'", princ_short, princ_unparsed);
108     ret = krb5_parse_name(context, princ_short, &p2);
110 	krb5_err(context, 1, ret, "krb5_parse_name");
112     if (!krb5_principal_compare(context, p, p2))
113 	krb5_errx(context, 1, "p != p2");
114     krb5_free_principal(context, p2);
116     ret = krb5_unparse_name(context, p, &princ_unparsed);
118 	krb5_err(context, 1, ret, "krb5_parse_name");
121 	krb5_errx(context, 1, "'%s' != '%s'", princ, princ_unparsed);
124     ret = krb5_set_default_realm(context, "SAMBA.ORG");
126 	krb5_err(context, 1, ret, "krb5_parse_name");
128     ret = krb5_parse_name(context, princ_short, &p2);
130 	krb5_err(context, 1, ret, "krb5_parse_name");
132     if (krb5_principal_compare(context, p, p2))
133 	krb5_errx(context, 1, "p == p2");
135     if (!krb5_principal_compare_any_realm(context, p, p2))
136 	krb5_errx(context, 1, "(ignoring realms) p != p2");
138     ret = krb5_unparse_name(context, p2, &princ_unparsed);
140 	krb5_err(context, 1, ret, "krb5_parse_name");
143 	krb5_errx(context, 1, "%s == %s", princ, princ_unparsed);
146     krb5_free_principal(context, p2);
148     ret = krb5_parse_name(context, princ, &p2);
150 	krb5_err(context, 1, ret, "krb5_parse_name");
152     if (!krb5_principal_compare(context, p, p2))
153 	krb5_errx(context, 1, "p != p2");
155     ret = krb5_unparse_name(context, p2, &princ_unparsed);
157 	krb5_err(context, 1, ret, "krb5_parse_name");
160 	krb5_errx(context, 1, "'%s' != '%s'", princ, princ_unparsed);
163     krb5_free_principal(context, p2);
165     ret = krb5_unparse_name_flags(context, p,
169 	krb5_err(context, 1, ret, "krb5_unparse_name_short");
172 	krb5_errx(context, 1, "'%s' != '%s'", princ, princ_unparsed);
175     ret = krb5_unparse_name(context, p, &princ_unparsed);
177 	krb5_err(context, 1, ret, "krb5_unparse_name_short");
180 	krb5_errx(context, 1, "'%s' != '%s'", princ, princ_unparsed);
183     ret = krb5_parse_name_flags(context, princ,
187 	krb5_err(context, 1, ret, "Should have failed to parse %s a "
190     ret = krb5_parse_name_flags(context, princ_short,
194 	krb5_err(context, 1, ret, "krb5_parse_name");
196     ret = krb5_unparse_name_flags(context, p2,
199     krb5_free_principal(context, p2);
201 	krb5_err(context, 1, ret, "krb5_unparse_name_norealm");
204 	krb5_errx(context, 1, "'%s' != '%s'", princ_short, princ_unparsed);
207     ret = krb5_parse_name_flags(context, princ_short,
211 	krb5_err(context, 1, ret, "Should have failed to parse %s "
214     ret = krb5_parse_name_flags(context, princ,
218 	krb5_err(context, 1, ret, "krb5_parse_name");
220     if (!krb5_principal_compare(context, p, p2))
221 	krb5_errx(context, 1, "p != p2");
223     ret = krb5_unparse_name_flags(context, p2,
226     krb5_free_principal(context, p2);
228 	krb5_err(context, 1, ret, "krb5_unparse_name_norealm");
231 	krb5_errx(context, 1, "'%s' != '%s'", princ_short, princ_unparsed);
234     krb5_free_principal(context, p);
241     ret = krb5_parse_name_flags(context, princ, 0, &p);
243 	krb5_err(context, 1, ret, "krb5_parse_name");
245     ret = krb5_unparse_name_flags(context, p, 0, &princ_unparsed);
247 	krb5_err(context, 1, ret, "krb5_unparse_name_flags");
250 	krb5_errx(context, 1, "q '%s' != '%s'", princ, princ_unparsed);
253     ret = krb5_unparse_name_flags(context, p, KRB5_PRINCIPAL_UNPARSE_DISPLAY,
256 	krb5_err(context, 1, ret, "krb5_unparse_name_flags");
259 	krb5_errx(context, 1, "nq '%s' != '%s'", noquote, princ_unparsed);
262     krb5_free_principal(context, p);
266 test_enterprise(krb5_context context)
272     ret = krb5_set_default_realm(context, "SAMBA.ORG");
274 	krb5_err(context, 1, ret, "krb5_parse_name");
276     ret = krb5_parse_name_flags(context, "lha@su.se@WIN.SU.SE",
279 	krb5_err(context, 1, ret, "krb5_parse_name_flags");
281     ret = krb5_unparse_name(context, p, &unparsed);
283 	krb5_err(context, 1, ret, "krb5_unparse_name");
285     krb5_free_principal(context, p);
288 	krb5_errx(context, 1, "enterprise name failed 1");
295     ret = krb5_parse_name_flags(context, "lha\\@su.se@WIN.SU.SE",
298 	krb5_err(context, 1, ret, "krb5_parse_name_flags");
300     ret = krb5_unparse_name(context, p, &unparsed);
302 	krb5_err(context, 1, ret, "krb5_unparse_name");
304     krb5_free_principal(context, p);
306 	krb5_errx(context, 1, "enterprise name failed 2: %s", unparsed);
313     ret = krb5_parse_name_flags(context, "lha\\@su.se@WIN.SU.SE", 0, &p);
315 	krb5_err(context, 1, ret, "krb5_parse_name_flags");
317     ret = krb5_unparse_name(context, p, &unparsed);
319 	krb5_err(context, 1, ret, "krb5_unparse_name");
321     krb5_free_principal(context, p);
323 	krb5_errx(context, 1, "enterprise name failed 3");
330     ret = krb5_parse_name_flags(context, "lha@su.se",
333 	krb5_err(context, 1, ret, "krb5_parse_name_flags");
335     ret = krb5_unparse_name(context, p, &unparsed);
337 	krb5_err(context, 1, ret, "krb5_unparse_name");
339     krb5_free_principal(context, p);
341 	krb5_errx(context, 1, "enterprise name failed 2: %s", unparsed);
349     krb5_context context;
354     ret = krb5_init_context(&context);
358     test_princ(context);
360     test_enterprise(context);
362     krb5_free_context(context);