test/api/testlib.c

   1 /* $Id: testlib.c,v 1.19 2005-05-09 12:03:59 adam Exp $
   2    Copyright (C) 1995-2005
   3    Index Data ApS
   4
   5 This file is part of the Zebra server.
   6
   7 Zebra is free software; you can redistribute it and/or modify it under
   8 the terms of the GNU General Public License as published by the Free
   9 Software Foundation; either version 2, or (at your option) any later
  10 version.
  11
  12 Zebra is distributed in the hope that it will be useful, but WITHOUT ANY
  13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  14 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  15 for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with Zebra; see the file LICENSE.zebra.  If not, write to the
  19 Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  20 02111-1307, USA.
  21 */
  22
  23 /** testlib - utilities for the api tests */
  24
  25 #include <assert.h>
  26 #include <yaz/log.h>
  27 #include <yaz/pquery.h>
  28 #include <idzebra/api.h>
  29 #include "testlib.h"
  30
  31 /** start_log: open a log file */
  32 /*    FIXME - parse command line arguments to set log levels etc */
  33 int log_level=0; /* not static, t*.c may use it */
  34
  35 void start_log(int argc, char **argv)
  36 {
  37     char logname[2048];
  38     if (!argv)
  39         return;
  40     if (!argv[0])
  41         return;
  42     sprintf(logname, "%s.log", argv[0]);
  43     yaz_log_init_file(logname);
  44     log_level = yaz_log_mask_str_x(argv[0],0);
  45     yaz_log_init_level(YLOG_DEFAULT_LEVEL | log_level);
  46     yaz_log(log_level,"starting %s",argv[0]);
  47 }
  48
  49 /**
  50  * start_up : do common start things, and a zebra_start
  51  *    - nmem_init
  52  *    - build the name of logfile from argv[0], and open it
  53  *      if no argv passed, do not open a log
  54  *    - read zebra.cfg from env var srcdir if it exists; otherwise current dir
  55  *      default to zebra.cfg, if no name is given
  56  */
  57 ZebraService start_up(char *cfgname, int argc, char **argv)
  58 {
  59     nmem_init();
  60     start_log(argc, argv);
  61     return start_service(cfgname);
  62 }
  63
  64 /**
  65  * get_srcdir: return env srcdir or . (if does does not exist)
  66  */
  67 const char *get_srcdir()
  68 {
  69     const char *srcdir = getenv("srcdir");
  70     if (!srcdir || ! *srcdir)
  71         srcdir=".";
  72     return srcdir;
  73
  74 }
  75 /** start_service - do a zebra_start with a decent config name */
  76 ZebraService start_service(char *cfgname)
  77 {
  78     char cfg[256];
  79     const char *srcdir = get_srcdir();
  80     ZebraService zs;
  81     if (!cfgname || ! *cfgname )
  82         cfgname="zebra.cfg";
  83
  84     sprintf(cfg, "%.200s/%.50s", srcdir, cfgname);
  85     zs=zebra_start(cfg);
  86     if (!zs)
  87     {
  88         printf("zebra_start failed, probably because missing config file \n"
  89                "check %s\n", cfg);
  90         exit(9);
  91     }
  92     return zs;
  93 }
  94
  95
  96 /** close_down closes down the zebra, logfile, nmem, xmalloc etc. logs an OK */
  97 int close_down(ZebraHandle zh, ZebraService zs, int retcode)
  98 {
  99     if (zh)
 100         zebra_close(zh);
 101     if (zs)
 102         zebra_stop(zs);
 103
 104     if (retcode)
 105         yaz_log(log_level,"========= Exiting with return code %d", retcode);
 106     else
 107         yaz_log(log_level,"========= All tests OK");
 108     nmem_exit();
 109     xmalloc_trav("x");
 110     return retcode;
 111 }
 112
 113 /** inits the database and inserts test data */
 114
 115 void init_data(ZebraHandle zh, const char **recs)
 116 {
 117     int i;
 118     char *addinfo;
 119     assert(zh);
 120     zebra_select_database(zh, "Default");
 121     yaz_log(log_level, "going to call init");
 122     i = zebra_init(zh);
 123     yaz_log(log_level, "init returned %d", i);
 124     if (i)
 125     {
 126         printf("init failed with %d\n",i);
 127         zebra_result(zh, &i, &addinfo);
 128         printf("  Error %d   %s\n", i, addinfo);
 129         exit(1);
 130     }
 131     if (recs)
 132     {
 133         zebra_begin_trans (zh, 1);
 134         for (i = 0; recs[i]; i++)
 135             zebra_add_record(zh, recs[i], strlen(recs[i]));
 136         zebra_end_trans(zh);
 137         zebra_commit(zh);
 138     }
 139
 140 }
 141
 142 int do_query_x(int lineno, ZebraHandle zh, const char *query, zint exphits,
 143                int experror)
 144 {
 145     ODR odr;
 146     YAZ_PQF_Parser parser;
 147     Z_RPNQuery *rpn;
 148     const char *setname="rsetname";
 149     zint hits;
 150     ZEBRA_RES rc;
 151
 152     yaz_log(log_level, "======================================");
 153     yaz_log(log_level, "qry[%d]: %s", lineno, query);
 154     odr = odr_createmem (ODR_DECODE);
 155
 156     parser = yaz_pqf_create();
 157     rpn = yaz_pqf_parse(parser, odr, query);
 158     yaz_pqf_destroy(parser);
 159     if (!rpn) {
 160         printf("Error: Parse failed \n%s\n", query);
 161         exit(1);
 162     }
 163     rc = zebra_search_RPN(zh, odr, rpn, setname, &hits);
 164     if (experror)
 165     {
 166         int code;
 167         if (rc != ZEBRA_FAIL)
 168         {
 169             printf("Error: search returned %d (OK), but error was expected\n"
 170                    "%s\n",  rc, query);
 171             exit(1);
 172         }
 173         code = zebra_errCode(zh);
 174         if (code != experror)
 175         {
 176             printf("Error: search returned error code %d, but error %d was "
 177                    "expected\n%s\n",
 178                    code, experror, query);
 179             exit(1);
 180         }
 181     }
 182     else
 183     {
 184         if (rc == ZEBRA_FAIL) {
 185             int code = zebra_errCode(zh);
 186             printf("Error: search returned %d. Code %d\n%s\n", rc,
 187                    code, query);
 188             exit (1);
 189         }
 190         if (exphits != -1 && hits != exphits) {
 191             printf("Error: search returned " ZINT_FORMAT
 192                    " hits instead of " ZINT_FORMAT "\n%s\n",
 193                    hits, exphits, query);
 194             exit (1);
 195         }
 196     }
 197     odr_destroy (odr);
 198     return hits;
 199 }
 200
 201
 202 int do_query(int lineno, ZebraHandle zh, const char *query, zint exphits)
 203 {
 204     return do_query_x(lineno, zh, query, exphits, 0);
 205 }
 206
 207 void do_scan(int lineno, ZebraHandle zh, const char *query,
 208              int pos, int num,
 209              int exp_pos, int exp_num, int exp_partial,
 210              const char **exp_entries)
 211 {
 212     ODR odr = odr_createmem(ODR_ENCODE);
 213     ZebraScanEntry *entries = 0;
 214     int partial = -123;
 215     ZEBRA_RES res;
 216
 217     yaz_log(log_level, "======================================");
 218     yaz_log(log_level, "scan[%d]: pos=%d num=%d %s", lineno, pos, num, query);
 219
 220     res = zebra_scan_PQF(zh, odr, query, &pos, &num, &entries, &partial);
 221     if (res != ZEBRA_OK)
 222     {
 223         printf("Error: scan returned %d (FAIL), but no error was expected\n"
 224                "%s\n",  res, query);
 225         exit(1);
 226     }
 227     else
 228     {
 229         int fails = 0;
 230         if (partial == -123)
 231         {
 232             printf("Error: scan returned OK, but partial was not set\n"
 233                    "%s\n", query);
 234             fails++;
 235         }
 236         if (partial != exp_partial)
 237         {
 238             printf("Error: scan returned OK, with partial/expected %d/%d\n"
 239                    "%s\n", partial, exp_partial, query);
 240             fails++;
 241         }
 242         if (num != exp_num)
 243         {
 244             printf("Error: scan returned OK, with num/expected %d/%d\n"
 245                    "%s\n", num, exp_num, query);
 246             fails++;
 247         }
 248         if (pos != exp_pos)
 249         {
 250             printf("Error: scan returned OK, with pos/expected %d/%d\n"
 251                    "%s\n", pos, exp_pos, query);
 252             fails++;
 253         }
 254         if (fails)
 255             exit(1);
 256         fails = 0;
 257         if (exp_entries)
 258         {
 259             int i;
 260             for (i = 0; i<num; i++)
 261             {
 262                 if (strcmp(exp_entries[i], entries[i].term))
 263                 {
 264                     printf("Error: scan OK, but entry %d term/exp %s/%s\n"
 265                            "%s\n",
 266                            i, entries[i].term, exp_entries[i], query);
 267                     fails++;
 268                 }
 269             }
 270         }
 271         if (fails)
 272             exit(0);
 273     }
 274     odr_destroy(odr);
 275 }
 276
 277 /**
 278  * makes a query, checks number of hits, and for the first hit, that
 279  * it contains the given string, and that it gets the right score
 280  */
 281 void ranking_query(int lineno, ZebraHandle zh, char *query,
 282                    int exphits, char *firstrec, int firstscore)
 283 {
 284     ZebraRetrievalRecord retrievalRecord[10];
 285     ODR odr_output = odr_createmem (ODR_ENCODE);
 286     const char *setname="rsetname";
 287     int hits;
 288     int rc;
 289     int i;
 290
 291     hits = do_query(lineno, zh, query, exphits);
 292
 293     for (i = 0; i<10; i++)
 294         retrievalRecord[i].position = i+1;
 295
 296     rc = zebra_records_retrieve (zh, odr_output, setname, 0,
 297                                  VAL_TEXT_XML, hits, retrievalRecord);
 298
 299     if (rc)
 300     {
 301         printf("Error: retrieve returned %d \n%s\n",rc,query);
 302         exit (1);
 303     }
 304
 305     if (!strstr(retrievalRecord[0].buf, firstrec))
 306     {
 307         printf("Error: Got the wrong record first\n");
 308         printf("Expected '%s' but got\n", firstrec);
 309         printf("%.*s\n", retrievalRecord[0].len, retrievalRecord[0].buf);
 310         exit(1);
 311     }
 312
 313     if (retrievalRecord[0].score != firstscore)
 314     {
 315         printf("Error: first rec got score %d instead of %d\n",
 316                retrievalRecord[0].score, firstscore);
 317         exit(1);
 318     }
 319     odr_destroy (odr_output);
 320 }
 321
 322 void meta_query(int lineno, ZebraHandle zh, char *query, int exphits,
 323                 zint *ids)
 324 {
 325     ZebraMetaRecord *meta;
 326     ODR odr_output = odr_createmem (ODR_ENCODE);
 327     const char *setname="rsetname";
 328     zint *positions = (zint *) malloc(1 + (exphits * sizeof(zint)));
 329     int hits;
 330     int i;
 331
 332     hits = do_query(lineno, zh, query, exphits);
 333
 334     for (i = 0; i<exphits; i++)
 335         positions[i] = i+1;
 336
 337     meta = zebra_meta_records_create (zh, setname,  exphits, positions);
 338
 339     if (!meta)
 340     {
 341         printf("Error: retrieve returned error\n%s\n", query);
 342         exit (1);
 343     }
 344
 345     for (i = 0; i<exphits; i++)
 346     {
 347         if (meta[i].sysno != ids[i])
 348         {
 349             printf("Expected id=" ZINT_FORMAT " but got id=" ZINT_FORMAT "\n",
 350                    ids[i], meta[i].sysno);
 351             exit(1);
 352         }
 353     }
 354     zebra_meta_records_destroy(zh, meta, exphits);
 355     odr_destroy (odr_output);
 356     free(positions);
 357 }
 358
 359 struct finfo {
 360     const char *name;
 361     int occurred;
 362 };
 363
 364 static void filter_cb(void *cd, const char *name)
 365 {
 366     struct finfo *f = (struct finfo*) cd;
 367     if (!strcmp(f->name, name))
 368         f->occurred = 1;
 369 }
 370
 371 void check_filter(ZebraService zs, const char *name)
 372 {
 373     struct finfo f;
 374
 375     f.name = name;
 376     f.occurred = 0;
 377     zebra_filter_info(zs, &f, filter_cb);
 378     if (!f.occurred)
 379     {
 380         yaz_log(YLOG_WARN, "Filter %s does not exist.", name);
 381         exit(0);
 382     }
 383 }
 384
 385
 386
 387