a8fc54be60c3480ce391e706f6b7a933e8cf9d84
[idzebra-moved-to-github.git] / test / api / t5.c
1 /* $Id: t5.c,v 1.15 2006-03-31 15:58:05 adam Exp $
2    Copyright (C) 1995-2005
3    Index Data ApS
4
5 This file is part of the Zebra server.
6
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
10 version.
11
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
15 for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with Zebra; see the file LICENSE.zebra.  If not, write to the
19 Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
20 02111-1307, USA.
21 */
22
23 /** t5.c: proximity searches */
24 #include <yaz/test.h>
25 #include "testlib.h"
26
27 const char *myrec[] = {
28         "<gils>\n<title>My title</title>\n</gils>\n",
29         "<gils>\n<title>My x title</title>\n</gils>\n",
30         "<gils>\n<title>My title x</title>\n</gils>\n" ,
31         0} ;
32         
33 static void tst(int argc, char **argv)
34 {
35     ZebraService zs = tl_start_up(0, argc, argv);
36     ZebraHandle zh = zebra_open(zs, 0);
37
38     YAZ_CHECK(tl_init_data(zh, myrec));
39
40     /* phrase searches */
41     YAZ_CHECK(tl_query(zh, "@attr 1=4 my", 3));
42     YAZ_CHECK(tl_query(zh, "@attr 1=4 {my x}", 1));
43     YAZ_CHECK(tl_query(zh, "@attr 1=4 @attr 4=1 {my x}", 1));
44     YAZ_CHECK(tl_query(zh, "@attr 1=4 {my x}", 1));
45     YAZ_CHECK(tl_query(zh, "@attr 1=4 {x my}", 0));
46     YAZ_CHECK(tl_query(zh, "@attr 1=4 {my x title}", 1));
47     YAZ_CHECK(tl_query(zh, "@attr 1=4 {my title}", 2));
48
49     /* and-list searches */
50     YAZ_CHECK(tl_query(zh, "@attr 1=4 @attr 4=6 {x my}", 2));
51     YAZ_CHECK(tl_query(zh, "@attr 1=4 @attr 4=6 {my x}", 2));
52     YAZ_CHECK(tl_query(zh, "@attr 1=4 @attr 4=6 {my my}", 3));
53     YAZ_CHECK(tl_query(zh, "@attr 1=4 @attr 4=6 {e x}", 0));
54
55     /* or-list searches */
56     YAZ_CHECK(tl_query(zh, "@attr 1=4 @attr 4=105 {x my}", 3));
57     YAZ_CHECK(tl_query(zh, "@attr 1=4 @attr 4=105 {my x}", 3));
58     YAZ_CHECK(tl_query(zh, "@attr 1=4 @attr 4=105 {my my}", 3));
59     YAZ_CHECK(tl_query(zh, "@attr 1=4 @attr 4=105 {e x}", 2));
60     YAZ_CHECK(tl_query(zh, "@attr 1=4 @attr 4=106 {e x}", 2));
61
62     YAZ_CHECK(tl_query(zh, "@attr 1=4 @and x title", 2));
63
64     /* exl=0 distance=2 order=1 relation=2 (<=), known, unit=word */
65     YAZ_CHECK(tl_query(zh, "@prox 0 2 1 2 k 2 my x", 2));
66
67     /* exl=0 distance=2 order=1 relation=2 (<=), known, unit=word */
68     YAZ_CHECK(tl_query(zh, "@prox 0 2 1 2 k 2 x my", 0));
69
70     /* exl=0 distance=2 order=0 relation=2 (<=), known, unit=word */
71     YAZ_CHECK(tl_query(zh, "@prox 0 2 0 2 k 2 x my", 2));
72
73     /* exl=0 distance=2 order=0 relation=3 (=), known, unit=word */
74     YAZ_CHECK(tl_query(zh, "@prox 0 2 1 3 k 2 my x", 1));
75
76     /* exl=1 distance=2 order=0 relation=3 (=), known, unit=word */
77     YAZ_CHECK(tl_query(zh, "@prox 1 2 1 3 k 2 my x", 1));
78
79     /* provoke unsupported use attribute */
80     YAZ_CHECK(tl_query_x(zh, "@attr 1=999 @attr 4=1 x", 0, 114));
81     YAZ_CHECK(tl_query_x(zh, "@attr 1=999 @attr 4=6 x", 0, 114));
82     YAZ_CHECK(tl_query_x(zh, "@attr 1=999 @attr 4=105 x", 0, 114));
83     YAZ_CHECK(tl_query_x(zh, "@attr 1=999 @attr 4=109 123", 0, 114));
84     YAZ_CHECK(tl_query_x(zh, "@attrset 1.2.840.10003.3.1 @attr 1=999 x",
85                          0, 114));
86     /* provoke unsupported attribute set */
87     YAZ_CHECK(tl_query_x(zh, "@attrset 1.2.8 @attr 1=999 @attr 4=1 x", 0, 121));
88     YAZ_CHECK(tl_query_x(zh, "@attrset 1.2.8 @attr 1=999 @attr 4=6 x", 0,
89                121));
90     YAZ_CHECK(tl_query_x(zh, "@attrset 1.2.8 @attr 1=999 @attr 4=105 x", 0,
91                121));
92     YAZ_CHECK(tl_query_x(zh, "@attrset 1.2.8 @attr 1=999 @attr 4=109 123",
93                0, 121));
94
95     /* provoke unsupported relation */
96     YAZ_CHECK(tl_query_x(zh, "@attr 1=1016 @attr 2=6 x", 0, 117));
97     YAZ_CHECK(tl_query_x(zh, "@attr 1=1016 @attr 2=6 @attr 4=109 x", 0, 114));
98  
99     YAZ_CHECK(tl_close_down(zh, zs));
100 }
101
102 TL_MAIN
103