-/* $Id: testlib.c,v 1.46 2007-11-30 10:08:01 adam Exp $
- Copyright (C) 1995-2007
- Index Data ApS
-
-This file is part of the Zebra server.
+/* This file is part of the Zebra server.
+ Copyright (C) Index Data
Zebra is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
/** testlib - utilities for the api tests */
+#if HAVE_CONFIG_H
+#include <config.h>
+#endif
#if HAVE_SYS_TIME_H
#include <sys/time.h>
#endif
int log_level = YLOG_LOG;
-/*
+/*
* tl_start_up : do common start things, and a zebra_start
* - build the name of logfile from argv[0], and open it
* if no argv passed, do not open a log
- * - read zebra.cfg from env var srcdir if it exists; otherwise current dir
+ * - read zebra.cfg from env var srcdir if it exists; otherwise current dir
* default to zebra.cfg, if no name is given
*/
ZebraService tl_start_up(char *cfgname, int argc, char **argv)
yaz_log(log_level, "going to call init");
res = zebra_init(zh);
- if (res == ZEBRA_FAIL)
+ if (res == ZEBRA_FAIL)
{
yaz_log(log_level, "init_data: zebra_init failed with %d", res);
printf("init_data failed with %d\n", res);
if (rc == ZEBRA_FAIL) {
int code = zebra_errCode(zh);
yaz_log(log_level, "search returned %d. Code %d", rc, code);
-
- printf("Error: search returned %d. Code %d\n%s\n", rc,
+
+ printf("Error: search returned %d. Code %d\n%s\n", rc,
code, query);
return 0;
}
if (exphits != -1 && hits != exphits)
{
- yaz_log(log_level, "search returned " ZINT_FORMAT
+ yaz_log(log_level, "search returned " ZINT_FORMAT
" hits instead of " ZINT_FORMAT, hits, exphits);
- printf("Error: search returned " ZINT_FORMAT
+ printf("Error: search returned " ZINT_FORMAT
" hits instead of " ZINT_FORMAT "\n%s\n",
hits, exphits, query);
return 0;
yaz_log(log_level, "======================================");
yaz_log(log_level, "scan: pos=%d num=%d %s", pos, num, query);
- res = zebra_scan_PQF(zh, odr, query, &pos, &num, &entries, &partial,
+ res = zebra_scan_PQF(zh, odr, query, &pos, &num, &entries, &partial,
0 /* setname */);
if (partial == -123)
return ret;
}
-/**
- * makes a query, checks number of hits, and for the first hit, that
+/**
+ * makes a query, checks number of hits, and for the first hit, that
* it contains the given string, and that it gets the right score
*/
-int tl_ranking_query(ZebraHandle zh, char *query,
+int tl_ranking_query(ZebraHandle zh, char *query,
int exphits, char *firstrec, int firstscore)
{
ZebraRetrievalRecord retrievalRecord[10];
int rc;
int i;
int ret = 1;
-
+
if (!tl_query(zh, query, exphits))
return 0;
for (i = 0; i<10; i++)
retrievalRecord[i].position = i+1;
- odr_output = odr_createmem(ODR_ENCODE);
+ odr_output = odr_createmem(ODR_ENCODE);
rc = zebra_records_retrieve(zh, odr_output, setname, 0,
yaz_oid_recsyn_xml, exphits, retrievalRecord);
if (rc != ZEBRA_OK)
const char *setname= "rsetname";
zint *positions = 0;
int i, ret = 1;
-
+
if (!tl_query(zh, query, exphits))
return 0;
-
+
positions = (zint *) xmalloc(1 + (exphits * sizeof(zint)));
for (i = 0; i<exphits; i++)
positions[i] = i+1;
meta = zebra_meta_records_create(zh, setname, exphits, positions);
-
+
if (!meta)
{
printf("Error: retrieve returned error\n%s\n", query);
if (min_val_exp == 0 || exp[i] < min_val_exp)
min_val_exp = exp[i];
}
-
+
/* compare sequences using base offset */
for (i = 0; i<hits; i++)
if ((recs[i].sysno-min_val_recs) != (exp[i]-min_val_exp))
}
}
-ZEBRA_RES tl_fetch_first(ZebraHandle zh, const char *element_set,
- const Odr_oid * format, ODR odr,
- const char **rec_buf, size_t *rec_len)
+ZEBRA_RES tl_fetch(ZebraHandle zh, int position, const char *element_set,
+ const Odr_oid * format, ODR odr,
+ const char **rec_buf, size_t *rec_len)
{
ZebraRetrievalRecord retrievalRecord[1];
Z_RecordComposition *comp;
ZEBRA_RES res;
- retrievalRecord[0].position = 1; /* get from this position */
-
+ retrievalRecord[0].position = position;
+
yaz_set_esn(&comp, element_set, odr->mem);
- res = zebra_records_retrieve(zh, odr, "default", comp, format, 1,
+ res = zebra_records_retrieve(zh, odr, "rsetname", comp, format, 1,
retrievalRecord);
if (res != ZEBRA_OK)
{
return res;
}
-ZEBRA_RES tl_fetch_first_compare(ZebraHandle zh,
- const char *element_set,
- const Odr_oid *format, const char *cmp_rec)
+ZEBRA_RES tl_fetch_compare(ZebraHandle zh,
+ int position, const char *element_set,
+ const Odr_oid *format, const char *cmp_rec)
{
const char *rec_buf = 0;
size_t rec_len = 0;
ODR odr = odr_createmem(ODR_ENCODE);
- ZEBRA_RES res = tl_fetch_first(zh, element_set, format, odr,
- &rec_buf, &rec_len);
+ ZEBRA_RES res = tl_fetch(zh, position, element_set, format, odr,
+ &rec_buf, &rec_len);
if (res == ZEBRA_OK)
{
if (strlen(cmp_rec) != rec_len)
res = ZEBRA_FAIL;
else if (memcmp(cmp_rec, rec_buf, rec_len))
res = ZEBRA_FAIL;
+ if (res == ZEBRA_FAIL)
+ {
+ int l = rec_len;
+ yaz_log(YLOG_LOG, "Expected: %s", cmp_rec);
+ yaz_log(YLOG_LOG, "Got: %.*s", l, rec_buf);
+ }
}
odr_destroy(odr);
return res;
}
-
-
-
+ZEBRA_RES tl_fetch_first_compare(ZebraHandle zh,
+ const char *element_set,
+ const Odr_oid *format, const char *cmp_rec)
+{
+ return tl_fetch_compare(zh, 1, element_set, format, cmp_rec);
+}
/*
* Local variables:
* c-basic-offset: 4
+ * c-file-style: "Stroustrup"
* indent-tabs-mode: nil
* End:
* vim: shiftwidth=4 tabstop=8 expandtab