1 /* $Id: t5.c,v 1.4.2.3 2006-12-05 21:14:46 adam Exp $
2 Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004
5 This file is part of the Zebra server.
7 Zebra is free software; you can redistribute it and/or modify it under
8 the terms of the GNU General Public License as published by the Free
9 Software Foundation; either version 2, or (at your option) any later
12 Zebra is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
25 #include <yaz/pquery.h>
28 /* read zebra.cfg from env var srcdir if it exists; otherwise current dir */
29 static ZebraService start_service()
32 char *srcdir = getenv("srcdir");
33 sprintf(cfg, "%.200s%szebra.cfg", srcdir ? srcdir : "", srcdir ? "/" : "");
34 return zebra_start(cfg);
37 static void expect(ZebraHandle zh, const char *pqf, int hits_expect,
41 if (zebra_search_PQF (zh, pqf, "set1", &hits) != 0)
43 yaz_log(YLOG_FATAL, "Search %s: failed", pqf);
46 else if (hits != hits_expect)
48 yaz_log(YLOG_FATAL, "Search %s: Expected %d, got %d", pqf,
54 int main(int argc, char **argv)
60 const char *myrec[] = {
61 "<gils>\n<title>My title</title>\n</gils>\n",
62 "<gils>\n<title>My x title</title>\n</gils>\n",
63 "<gils>\n<title>My title x</title>\n</gils>\n" ,
67 yaz_log_init_file("t5.log");
73 zebra_select_database(zh, "Default");
76 zebra_begin_trans (zh, 1);
77 for (i = 0; myrec[i]; i++)
78 zebra_add_record (zh, myrec[i], strlen(myrec[i]));
81 expect(zh, "@attr 1=4 my", 3, &exit_code);
82 expect(zh, "@attr 1=4 {my x}", 1, &exit_code);
83 expect(zh, "@attr 1=4 {my x}", 1, &exit_code);
84 expect(zh, "@attr 1=4 {x my}", 0, &exit_code);
85 expect(zh, "@attr 1=4 {my x title}", 1, &exit_code);
86 expect(zh, "@attr 1=4 {my title}", 2, &exit_code);
87 expect(zh, "@attr 1=4 @and x title", 2, &exit_code);
89 /* exl=0 distance=2 order=1 relation=2 (<=), known, unit=word */
90 expect(zh, "@prox 0 2 1 2 k 2 my x", 2, &exit_code);
92 /* exl=0 distance=2 order=1 relation=2 (<=), known, unit=word */
93 expect(zh, "@prox 0 2 1 2 k 2 x my", 0, &exit_code);
95 /* exl=0 distance=2 order=0 relation=2 (<=), known, unit=word */
96 expect(zh, "@prox 0 2 0 2 k 2 x my", 2, &exit_code);
98 /* exl=0 distance=2 order=0 relation=3 (=), known, unit=word */
99 expect(zh, "@prox 0 2 1 3 k 2 my x", 1, &exit_code);
101 /* exl=1 distance=2 order=0 relation=3 (=), known, unit=word */
102 expect(zh, "@prox 1 2 1 3 k 2 my x", 1, &exit_code);