crypto/dist/heimdal/lib/krb5/test_acl.c

   1 /*
   2  * Copyright (c) 2004 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 #include "krb5_locl.h"
  34 #include <err.h>
  35
  36 __RCSID("$Heimdal: test_acl.c 15036 2005-04-30 15:19:58Z lha $"
  37         "$NetBSD$");
  38
  39 #define RETVAL(c, r, e, s) \
  40         do { if (r != e) krb5_errx(c, 1, "%s", s); } while (0)
  41 #define STRINGMATCH(c, s, _s1, _s2) \
  42         do {                                                    \
  43                 if (_s1 == NULL || _s2 == NULL)                 \
  44                         krb5_errx(c, 1, "s1 or s2 is NULL");    \
  45                 if (strcmp(_s1,_s2) != 0)                       \
  46                         krb5_errx(c, 1, "%s", s);               \
  47         } while (0)
  48
  49 static void
  50 test_match_string(krb5_context context)
  51 {
  52     krb5_error_code ret;
  53     char *s1, *s2;
  54
  55     ret = krb5_acl_match_string(context, "foo", "s", "foo");
  56     RETVAL(context, ret, 0, "single s");
  57     ret = krb5_acl_match_string(context, "foo foo", "s", "foo");
  58     RETVAL(context, ret, EACCES, "too many strings");
  59     ret = krb5_acl_match_string(context, "foo bar", "ss", "foo", "bar");
  60     RETVAL(context, ret, 0, "two strings");
  61     ret = krb5_acl_match_string(context, "foo  bar", "ss", "foo", "bar");
  62     RETVAL(context, ret, 0, "two strings double space");
  63     ret = krb5_acl_match_string(context, "foo \tbar", "ss", "foo", "bar");
  64     RETVAL(context, ret, 0, "two strings space + tab");
  65     ret = krb5_acl_match_string(context, "foo", "ss", "foo", "bar");
  66     RETVAL(context, ret, EACCES, "one string, two format strings");
  67     ret = krb5_acl_match_string(context, "foo", "ss", "foo", "foo");
  68     RETVAL(context, ret, EACCES, "one string, two format strings (same)");
  69     ret = krb5_acl_match_string(context, "foo  \t", "s", "foo");
  70     RETVAL(context, ret, 0, "ending space");
  71
  72     ret = krb5_acl_match_string(context, "foo/bar", "f", "foo/bar");
  73     RETVAL(context, ret, 0, "liternal fnmatch");
  74     ret = krb5_acl_match_string(context, "foo/bar", "f", "foo/*");
  75     RETVAL(context, ret, 0, "foo/*");
  76     ret = krb5_acl_match_string(context, "foo/bar/baz", "f", "foo/*/baz");
  77     RETVAL(context, ret, 0, "foo/*/baz");
  78
  79     ret = krb5_acl_match_string(context, "foo", "r", &s1);
  80     RETVAL(context, ret, 0, "ret 1");
  81     STRINGMATCH(context, "ret 1 match", s1, "foo"); free(s1);
  82
  83     ret = krb5_acl_match_string(context, "foo bar", "rr", &s1, &s2);
  84     RETVAL(context, ret, 0, "ret 2");
  85     STRINGMATCH(context, "ret 2 match 1", s1, "foo"); free(s1);
  86     STRINGMATCH(context, "ret 2 match 2", s2, "bar"); free(s2);
  87
  88     ret = krb5_acl_match_string(context, "foo bar", "sr", "bar", &s1);
  89     RETVAL(context, ret, EACCES, "ret mismatch");
  90     if (s1 != NULL) krb5_errx(context, 1, "s1 not NULL");
  91
  92     ret = krb5_acl_match_string(context, "foo", "l", "foo");
  93     RETVAL(context, ret, EINVAL, "unknown letter");
  94 }
  95
  96
  97 int
  98 main(int argc, char **argv)
  99 {
 100     krb5_context context;
 101     krb5_error_code ret;
 102
 103     setprogname(argv[0]);
 104
 105     ret = krb5_init_context(&context);
 106     if (ret)
 107         errx (1, "krb5_init_context failed: %d", ret);
 108
 109     test_match_string(context);
 110
 111     krb5_free_context(context);
 112
 113     return 0;
 114 }