1/*
2 * Copyright (c) 2003 Kungliga Tekniska Högskolan
3 * (Royal Institute of Technology, Stockholm, Sweden).
4 * All rights reserved.
5 *
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
8 * are met:
9 *
10 * 1. Redistributions of source code must retain the above copyright
11 *    notice, this list of conditions and the following disclaimer.
12 *
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.
16 *
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.
20 *
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.
32 */
33
34#include "krb5_locl.h"
35#include <err.h>
36
37static int
38check_config_file(krb5_context context, char *filelist, char **res, int def)
39{
40    krb5_error_code ret;
41    char **pp;
42    int i;
43
44    pp = NULL;
45
46    if (def)
47	ret = krb5_prepend_config_files_default(filelist, &pp);
48    else
49	ret = krb5_prepend_config_files(filelist, NULL, &pp);
50
51    if (ret)
52	krb5_err(context, 1, ret, "prepend_config_files");
53
54    for (i = 0; res[i] && pp[i]; i++)
55	if (strcmp(pp[i], res[i]) != 0)
56	    krb5_errx(context, 1, "'%s' != '%s'", pp[i], res[i]);
57
58    if (res[i] != NULL)
59	krb5_errx(context, 1, "pp ended before res list");
60
61    if (def) {
62	char **deflist;
63	int j;
64
65	ret = krb5_get_default_config_files(&deflist);
66	if (ret)
67	    krb5_err(context, 1, ret, "get_default_config_files");
68
69	for (j = 0 ; pp[i] && deflist[j]; i++, j++)
70	    if (strcmp(pp[i], deflist[j]) != 0)
71		krb5_errx(context, 1, "'%s' != '%s'", pp[i], deflist[j]);
72
73	if (deflist[j] != NULL)
74	    krb5_errx(context, 1, "pp ended before def list");
75	krb5_free_config_files(deflist);
76    }
77
78    if (pp[i] != NULL)
79	krb5_errx(context, 1, "pp ended after res (and def) list");
80
81    krb5_free_config_files(pp);
82
83    return 0;
84}
85
86char *list0[] =  { "/tmp/foo", NULL };
87char *list1[] =  { "/tmp/foo", "/tmp/foo/bar", NULL };
88char *list2[] =  { "", NULL };
89
90struct {
91    char *fl;
92    char **res;
93} test[] = {
94    { "/tmp/foo", NULL },
95    { "/tmp/foo" PATH_SEP "/tmp/foo/bar", NULL },
96    { "", NULL }
97};
98
99static void
100check_config_files(void)
101{
102    krb5_context context;
103    krb5_error_code ret;
104    int i;
105
106    ret = krb5_init_context(&context);
107    if (ret)
108	errx(1, "krb5_init_context %d", ret);
109
110    test[0].res = list0;
111    test[1].res = list1;
112    test[2].res = list2;
113
114    for (i = 0; i < sizeof(test)/sizeof(*test); i++) {
115	check_config_file(context, test[i].fl, test[i].res, 0);
116	check_config_file(context, test[i].fl, test[i].res, 1);
117    }
118
119    krb5_free_context(context);
120}
121
122const char *config_string_result0[] = {
123    "A", "B", "C", "D", NULL
124};
125
126const char *config_string_result1[] = {
127    "A", "B", "C D", NULL
128};
129
130const char *config_string_result2[] = {
131    "A", "B", "", NULL
132};
133
134const char *config_string_result3[] = {
135    "A B;C: D", NULL
136};
137
138const char *config_string_result4[] = {
139    "\"\"", "", "\"\"", NULL
140};
141
142const char *config_string_result5[] = {
143    "A\"BQd", NULL
144};
145
146const char *config_string_result6[] = {
147    "efgh\"", "ABC", NULL
148};
149
150const char *config_string_result7[] = {
151    "SnapeKills\\", "Dumbledore", NULL
152};
153
154const char *config_string_result8[] = {
155    "\"TownOf Sandwich: Massachusetts\"Oldest", "Town", "In", "Cape Cod", NULL
156};
157
158const char *config_string_result9[] = {
159    "\"Begins and\"ends", "In", "One", "String", NULL
160};
161
162const char *config_string_result10[] = {
163    "Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:",
164    "1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.",
165    "2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution.",
166    "3. Neither the name of the Institute nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission.",
167    "THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.",
168    "Why do we test with such long strings? Because some people have config files",
169    "That", "look", "Like this.", NULL
170};
171
172const struct {
173    const char * name;
174    const char ** expected;
175} config_strings_tests[] = {
176    { "foo", config_string_result0 },
177    { "bar", config_string_result1 },
178    { "baz", config_string_result2 },
179    { "quux", config_string_result3 },
180    { "questionable", config_string_result4 },
181    { "mismatch1", config_string_result5 },
182    { "mismatch2", config_string_result6 },
183    { "internal1", config_string_result7 },
184    { "internal2", config_string_result8 },
185    { "internal3", config_string_result9 },
186    { "longer_strings", config_string_result10 }
187};
188
189static void
190check_escaped_strings(void)
191{
192    krb5_context context;
193    krb5_config_section *c = NULL;
194    krb5_error_code ret;
195    int i;
196
197    ret = krb5_init_context(&context);
198    if (ret)
199        errx(1, "krb5_init_context %d", ret);
200
201    ret = krb5_config_parse_file(context, "test_config_strings.out", &c);
202    if (ret)
203        krb5_errx(context, 1, "krb5_config_parse_file()");
204
205    for (i=0; i < sizeof(config_strings_tests)/sizeof(config_strings_tests[0]); i++) {
206        char **ps;
207        const char **s;
208        const char **e;
209
210        ps = krb5_config_get_strings(context, c, "escapes", config_strings_tests[i].name,
211                                     NULL);
212        if (ps == NULL)
213            errx(1, "Failed to read string value %s", config_strings_tests[i].name);
214
215        e = config_strings_tests[i].expected;
216
217        for (s = (const char **)ps; *s && *e; s++, e++) {
218            if (strcmp(*s, *e))
219                errx(1,
220                     "Unexpected configuration string at value [%s].\n"
221                     "Actual=[%s]\n"
222                     "Expected=[%s]\n",
223                     config_strings_tests[i].name, *s, *e);
224        }
225
226        if (*s || *e)
227            errx(1, "Configuation string list for value [%s] has incorrect length.",
228		 config_strings_tests[i].name);
229
230        krb5_config_free_strings(ps);
231    }
232
233    ret = krb5_config_file_free(context, c);
234    if (ret)
235        krb5_errx(context, 1, "krb5_config_file_free()");
236
237    krb5_free_context(context);
238}
239
240int
241main(int argc, char **argv)
242{
243    check_config_files();
244    check_escaped_strings();
245    return 0;
246}
247