-/* $Id: t5.c,v 1.1 2004-06-14 21:43:44 adam Exp $
+/* $Id: t5.c,v 1.3 2004-06-16 22:06:49 adam Exp $
Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004
Index Data Aps
#include <yaz/pquery.h>
#include <zebraapi.h>
+/* read zebra.cfg from env var srcdir if it exists; otherwise current dir */
+static ZebraService start_service()
+{
+ char cfg[256];
+ char *srcdir = getenv("srcdir");
+ sprintf(cfg, "%.200s%szebra.cfg", srcdir ? srcdir : "", srcdir ? "/" : "");
+ return zebra_start(cfg, 0, 0);
+}
+
static void expect(ZebraHandle zh, const char *pqf, int hits_expect,
int *exit_code)
{
nmem_init ();
- zs = zebra_start("zebra.cfg", 0, 0);
+ zs = start_service();
zh = zebra_open (zs);
zebra_select_database(zh, "Default");
zebra_init(zh);
expect(zh, "@attr 1=4 {my title}", 2, &exit_code);
expect(zh, "@attr 1=4 @and x title", 2, &exit_code);
+ /* exl=0 distance=2 order=1 relation=2 (<=), known, unit=word */
+ expect(zh, "@prox 0 2 1 2 k 2 my x", 2, &exit_code);
+
+ /* exl=0 distance=2 order=1 relation=2 (<=), known, unit=word */
+ expect(zh, "@prox 0 2 1 2 k 2 x my", 0, &exit_code);
+
+ /* exl=0 distance=2 order=0 relation=2 (<=), known, unit=word */
+ expect(zh, "@prox 0 2 0 2 k 2 x my", 2, &exit_code);
+
+ /* exl=0 distance=2 order=0 relation=3 (=), known, unit=word */
+ expect(zh, "@prox 0 2 1 3 k 2 my x", 1, &exit_code);
+
+ /* exl=1 distance=2 order=0 relation=3 (=), known, unit=word */
+ expect(zh, "@prox 1 2 1 3 k 2 my x", 1, &exit_code);
+
zebra_close (zh);
zebra_stop (zs);