postlicyd/tst-filters.c

   1 /******************************************************************************/
   2 /*          pfixtools: a collection of postfix related tools                  */
   3 /*          ~~~~~~~~~                                                         */
   4 /*  ________________________________________________________________________  */
   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 /*  2. Redistributions in binary form must reproduce the above copyright      */
  13 /*     notice, this list of conditions and the following disclaimer in the    */
  14 /*     documentation and/or other materials provided with the distribution.   */
  15 /*  3. The names of its contributors may not be used to endorse or promote    */
  16 /*     products derived from this software without specific prior written     */
  17 /*     permission.                                                            */
  18 /*                                                                            */
  19 /*  THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND   */
  20 /*  ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE     */
  21 /*  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR        */
  22 /*  PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS    */
  23 /*  BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR    */
  24 /*  CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF      */
  25 /*  SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS  */
  26 /*  INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN   */
  27 /*  CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)   */
  28 /*  ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF    */
  29 /*  THE POSSIBILITY OF SUCH DAMAGE.                                           */
  30 /******************************************************************************/
  31
  32 /*
  33  * Copyright © 2008 Florent Bruneau
  34  */
  35
  36 #include "str.h"
  37 #include "config.h"
  38 #include "file.h"
  39 #include <dirent.h>
  40
  41 #define DAEMON_NAME "tst-filters"
  42
  43 DECLARE_MAIN
  44
  45 static bool run_testcase(const config_t *config, const char *basepath,
  46                          const char *filename)
  47 {
  48     char buff[BUFSIZ];
  49     char path[FILENAME_MAX];
  50     char *end;
  51
  52     snprintf(path, FILENAME_MAX, "%s%s", basepath, filename);
  53     {
  54         file_map_t map;
  55         if (!file_map_open(&map, path, false)) {
  56             return false;
  57         }
  58         if (map.end - map.map >= BUFSIZ) {
  59             syslog(LOG_ERR, "File too large for a testcase: %s", path);
  60             return false;
  61         }
  62         memcpy(buff, map.map, map.end - map.map);
  63         end = buff + (map.end - map.map);
  64         *end = '\0';
  65         file_map_close(&map);
  66     }
  67
  68     query_t query;
  69     const char *eol = strstr(buff, "\n\n") + 2;
  70     if (!query_parse(&query, buff)) {
  71         syslog(LOG_ERR, "Cannot parse query from file %s", path);
  72         return false;
  73     }
  74
  75     bool ok = true;
  76     while (eol < end) {
  77         char *neol = memchr(eol, '\n', end - eol);
  78         if (neol == NULL) {
  79             neol = end;
  80         }
  81         *neol = '\0';
  82         char *sep = memchr(eol, '=', neol - eol);
  83         if (sep == NULL) {
  84             eol = neol + 1;
  85             syslog(LOG_ERR, "missing separator");
  86             continue;
  87         }
  88         *sep = '\0';
  89
  90         int pos = filter_find_with_name(&config->filters, eol);
  91         if (pos == -1) {
  92             syslog(LOG_ERR, "Unknown filter %s", eol);
  93             eol = neol + 1;
  94             continue;
  95         }
  96         ++sep;
  97         filter_result_t result = hook_tokenize(sep, neol - sep);
  98         if (result == HTK_UNKNOWN) {
  99             syslog(LOG_ERR, "Unknown filter result %.*s", neol - sep, sep);
 100             eol = neol + 1;
 101             continue;
 102         }
 103         filter_t *filter = array_ptr(config->filters, pos);
 104
 105         bool test = filter_test(filter, &query, result);
 106         printf("  filter %s: %s\n", filter->name, test ? "SUCCESS" : "FAILED");
 107         ok = ok && test;
 108         eol = neol + 1;
 109     }
 110     return ok;
 111 }
 112
 113 int main(int argc, char *argv[])
 114 {
 115     char basepath[FILENAME_MAX];
 116     char path[FILENAME_MAX];
 117     char *p;
 118
 119     p = strrchr(argv[0], '/');
 120     if (p == NULL) {
 121         p = argv[0];
 122     } else {
 123         ++p;
 124     }
 125
 126     snprintf(basepath, FILENAME_MAX, "%.*sdata/", p - argv[0], argv[0]);
 127     snprintf(path, FILENAME_MAX, "%s/test.conf", basepath);
 128
 129     config_t *config = config_read(path);
 130     if (config == NULL) {
 131         return 1;
 132     }
 133
 134     DIR *dir = opendir(basepath);
 135     if (dir == NULL) {
 136         UNIXERR("opendir");
 137         return 1;
 138     }
 139
 140     struct dirent *ent;
 141     while ((ent = readdir(dir)) != NULL) {
 142         if (strncmp("testcase_", ent->d_name, 9) == 0) {
 143             printf("Running %s:\n", ent->d_name);
 144             printf("%s\n",
 145                    run_testcase(config, basepath, ent->d_name) ? "SUCCESS" : "FAILED");
 146         }
 147     }
 148     closedir(dir);
 149
 150     return 0;
 151 }