-/* $Id: t5.c,v 1.2 2004-06-14 23:43:32 adam Exp $
+/* $Id: t5.c,v 1.6 2004-08-25 09:23:39 adam Exp $
Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004
Index Data Aps
#include <yaz/log.h>
#include <yaz/pquery.h>
-#include <zebraapi.h>
+#include <idzebra/api.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);
+ return zebra_start(cfg);
}
static void expect(ZebraHandle zh, const char *pqf, int hits_expect,
int main(int argc, char **argv)
{
- int i, hits = -1;
+ int i;
int exit_code = 0;
ZebraService zs;
ZebraHandle 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);