+ 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) {
+ int code = zebra_errCode(zh);
+ printf("Error: search returned %d. Code %d\n%s\n", rc,
+ code, 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);
+}
+
+void do_scan(int lineno, ZebraHandle zh, const char *query,
+ int pos, int num,
+ int exp_pos, int exp_num, int exp_partial,
+ const char **exp_entries)
+{
+ ODR odr = odr_createmem(ODR_ENCODE);
+ ZebraScanEntry *entries = 0;
+ int partial = -123;
+ ZEBRA_RES res;
+
+ yaz_log(log_level, "======================================");
+ yaz_log(log_level, "scan[%d]: pos=%d num=%d %s", lineno, pos, num, query);
+
+ res = zebra_scan_PQF(zh, odr, query, &pos, &num, &entries, &partial);
+ if (res != ZEBRA_OK)
+ {
+ printf("Error: scan returned %d (FAIL), but no error was expected\n"
+ "%s\n", res, query);
+ exit(1);
+ }
+ else
+ {
+ int fails = 0;
+ if (partial == -123)
+ {
+ printf("Error: scan returned OK, but partial was not set\n"
+ "%s\n", query);
+ fails++;
+ }
+ if (partial != exp_partial)
+ {
+ printf("Error: scan returned OK, with partial/expected %d/%d\n"
+ "%s\n", partial, exp_partial, query);
+ fails++;
+ }
+ if (num != exp_num)
+ {
+ printf("Error: scan returned OK, with num/expected %d/%d\n"
+ "%s\n", num, exp_num, query);
+ fails++;
+ }
+ if (pos != exp_pos)
+ {
+ printf("Error: scan returned OK, with pos/expected %d/%d\n"
+ "%s\n", pos, exp_pos, query);
+ fails++;
+ }
+ if (fails)
+ exit(1);
+ fails = 0;
+ if (exp_entries)
+ {
+ int i;
+ for (i = 0; i<num; i++)
+ {
+ if (strcmp(exp_entries[i], entries[i].term))
+ {
+ printf("Error: scan OK, but entry %d term/exp %s/%s\n"
+ "%s\n",
+ i, entries[i].term, exp_entries[i], query);
+ fails++;
+ }
+ }
+ }
+ if (fails)
+ exit(0);
+ }
+ odr_destroy(odr);