2 * Copyright (c) 2002-2003, Index Data
3 * See the file LICENSE for details.
5 * $Id: tstccl.c,v 1.2 2004-08-11 12:01:22 adam Exp $
17 static struct ccl_tst query_str[] = {
18 { "x1", "@attr 4=2 @attr 1=1016 x1 "},
19 { "(((((x1)))))", "@attr 4=2 @attr 1=1016 x1 "},
20 {"x1 and x2", "@and @attr 4=2 @attr 1=1016 x1 @attr 4=2 @attr 1=1016 x2 "},
21 { "ti=x3", "@attr 4=2 @attr 1=4 x3 "},
22 { "dc.title=x4", "@attr 1=/my/title x4 "},
25 { "spid%æserne", "@prox 0 1 0 2 k 2 @attr 4=2 @attr 1=1016 spid @attr 4=2 @attr 1=1016 æserne "},
31 CCL_parser parser = ccl_parser_create ();
32 CCL_bibset bibset = ccl_qual_mk();
35 ccl_qual_fitem(bibset, "u=4 s=pw t=l,r", "ti");
36 ccl_qual_fitem(bibset, "1=1016 s=al,pw", "term");
37 ccl_qual_fitem(bibset, "1=/my/title", "dc.title");
39 parser->bibset = bibset;
41 for (i = 0; query_str[i].query; i++)
43 struct ccl_token *token_list =
44 ccl_parser_tokenize(parser, query_str[i].query);
45 struct ccl_rpn_node *rpn = ccl_parser_find(parser, token_list);
46 ccl_token_del (token_list);
49 WRBUF wrbuf = wrbuf_alloc();
50 ccl_pquery(wrbuf, rpn);
52 if (!query_str[i].result)
54 printf ("Failed %s\n", query_str[i].query);
55 printf (" got:%s:\n", wrbuf_buf(wrbuf));
56 printf (" expected failure\n");
59 else if (strcmp(wrbuf_buf(wrbuf), query_str[i].result))
61 printf ("Failed %s\n", query_str[i].query);
62 printf (" got:%s:\n", wrbuf_buf(wrbuf));
63 printf (" expected:%s:\n", query_str[i].result);
69 else if (query_str[i].result)
71 printf ("Failed %s\n", query_str[i].query);
72 printf (" got failure\n");
73 printf (" expected:%s:\n", query_str[i].result);
77 ccl_parser_destroy (parser);
81 int main(int argc, char **argv)