+ sprintf(cfg, "%.200s/%.50s", srcdir, cfgname);
+ zs=zebra_start(cfg);
+ if (!zs)
+ {
+ printf("zebra_start failed, probably because missing config file \n"
+ "check %s\n", cfg);
+ exit(9);
+ }
+ return zs;
+}
+
+
+/** close_down closes down the zebra, logfile, nmem, xmalloc etc. logs an OK */
+int close_down(ZebraHandle zh, ZebraService zs, int retcode)
+{
+ if (zh)
+ zebra_close(zh);
+ if (zs)
+ zebra_stop(zs);
+
+ if (retcode)
+ yaz_log(log_level,"========= Exiting with return code %d", retcode);
+ else
+ yaz_log(log_level,"========= All tests OK");
+ nmem_exit();
+ xmalloc_trav("x");
+ return retcode;
+}
+
+/** inits the database and inserts test data */
+
+void init_data(ZebraHandle zh, const char **recs)
+{
+ int i;
+ char *addinfo;
+ assert(zh);
+ zebra_select_database(zh, "Default");
+ yaz_log(log_level, "going to call init");
+ i = zebra_init(zh);
+ yaz_log(log_level, "init returned %d", i);
+ if (i)
+ {
+ printf("init failed with %d\n",i);
+ zebra_result(zh, &i, &addinfo);
+ printf(" Error %d %s\n", i, addinfo);
+ exit(1);
+ }
+ if (recs)
+ {
+ zebra_begin_trans (zh, 1);
+ for (i = 0; recs[i]; i++)
+ zebra_add_record(zh, recs[i], strlen(recs[i]));
+ zebra_end_trans(zh);
+ zebra_commit(zh);
+ }
+
+}
+
+int do_query_x(int lineno, ZebraHandle zh, char *query, int exphits,
+ int experror)
+{
+ ODR odr;
+ YAZ_PQF_Parser parser;
+ Z_RPNQuery *rpn;
+ const char *setname="rsetname";
+ zint hits;
+ ZEBRA_RES rc;
+
+ yaz_log(log_level, "======================================");
+ yaz_log(log_level, "qry[%d]: %s", lineno, query);
+ odr = odr_createmem (ODR_DECODE);
+
+ parser = yaz_pqf_create();
+ rpn = yaz_pqf_parse(parser, odr, query);
+ yaz_pqf_destroy(parser);
+ if (!rpn) {
+ printf("Error: Parse failed \n%s\n", query);
+ exit(1);
+ }
+ rc = zebra_search_RPN(zh, odr, rpn, setname, &hits);
+ if (experror)
+ {
+ if (rc != ZEBRA_FAIL)
+ {
+ printf("Error: search returned %d (OK), but error was expected\n"
+ "%s\n", rc, query);
+ exit(1);
+ }
+ int code = zebra_errCode(zh);
+ if (code != experror)
+ {
+ printf("Error: search returned error code %d, but error %d was "
+ "expected\n%s\n",
+ code, experror, query);
+ exit(1);
+ }
+ }
+ else
+ {
+ if (rc == ZEBRA_FAIL) {
+ printf("Error: search returned %d\n%s\n", rc, query);
+ exit (1);
+ }
+ if (exphits != -1 && hits != exphits) {
+ printf("Error: search returned " ZINT_FORMAT
+ " hits instead of %d\n%s\n",
+ hits, exphits, query);
+ exit (1);
+ }
+ }
+ odr_destroy (odr);
+ return hits;
+}
+
+
+int do_query(int lineno, ZebraHandle zh, char *query, int exphits)
+{
+ return do_query_x(lineno, zh, query, exphits, 0);