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