2 * Copyright (c) 2002-2003, Index Data
3 * See the file LICENSE for details.
5 * $Id: tstccl.c,v 1.1 2003-10-27 12:21:38 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 "},
30 CCL_parser parser = ccl_parser_create ();
31 CCL_bibset bibset = ccl_qual_mk();
34 ccl_qual_fitem(bibset, "u=4 s=pw t=l,r", "ti");
35 ccl_qual_fitem(bibset, "1=1016 s=al,pw", "term");
36 ccl_qual_fitem(bibset, "1=/my/title", "dc.title");
38 parser->bibset = bibset;
40 for (i = 0; query_str[i].query; i++)
42 struct ccl_token *token_list =
43 ccl_parser_tokenize(parser, query_str[i].query);
44 struct ccl_rpn_node *rpn = ccl_parser_find(parser, token_list);
45 ccl_token_del (token_list);
48 WRBUF wrbuf = wrbuf_alloc();
49 ccl_pquery(wrbuf, rpn);
51 if (!query_str[i].result)
53 printf ("Failed %s\n", query_str[i].query);
54 printf (" got:%s:\n", wrbuf_buf(wrbuf));
55 printf (" expected failure\n");
58 else if (strcmp(wrbuf_buf(wrbuf), query_str[i].result))
60 printf ("Failed %s\n", query_str[i].query);
61 printf (" got:%s:\n", wrbuf_buf(wrbuf));
62 printf (" expected:%s:\n", query_str[i].result);
68 else if (query_str[i].result)
70 printf ("Failed %s\n", query_str[i].query);
71 printf (" got failure\n");
72 printf (" expected:%s:\n", query_str[i].result);
76 ccl_parser_destroy (parser);
80 int main(int argc, char **argv)