X-Git-Url: http://git.indexdata.com/?p=yaz-moved-to-github.git;a=blobdiff_plain;f=test%2Ftest_ccl.c;h=041efa32eb0eb98d1496de3c116002a802abaa1d;hp=dada1e04a6a058f4a3a9c168e8af12d6d251b736;hb=HEAD;hpb=3107ce3a34993d2f784387f227a50343fff83bbc diff --git a/test/test_ccl.c b/test/test_ccl.c index dada1e0..041efa3 100644 --- a/test/test_ccl.c +++ b/test/test_ccl.c @@ -1,9 +1,10 @@ /* This file is part of the YAZ toolkit. - * Copyright (C) 1995-2010 Index Data + * Copyright (C) Index Data * See the file LICENSE for details. */ - -/* CCL test */ +#if HAVE_CONFIG_H +#include +#endif #include #include @@ -21,14 +22,14 @@ static int tst_ccl_query(CCL_bibset bibset, if (parser && bibset) { struct ccl_rpn_node *rpn; - + rpn = ccl_parser_find_str(parser, query); if (rpn) { /* parse ok. check that result is there and match */ WRBUF wrbuf = wrbuf_alloc(); ccl_pquery(wrbuf, rpn); - + /* check expect a result and that it matches */ if (result && !strcmp(wrbuf_cstr(wrbuf), result)) ret = 1; @@ -42,7 +43,7 @@ static int tst_ccl_query(CCL_bibset bibset, ccl_rpn_delete(rpn); wrbuf_destroy(wrbuf); } - else + else { if (result) { @@ -66,16 +67,28 @@ void tst1(int pass) if (!bibset) return; + if (pass == 1) + { + CCL_bibset nbibset = ccl_qual_dup(bibset); + ccl_qual_rm(&bibset); + bibset = nbibset; + } + switch(pass) { case 0: + ccl_qual_fitem(bibset, "term dc.title", "comb"); ccl_qual_fitem(bibset, "u=4 s=pw t=l,r", "ti"); ccl_qual_fitem(bibset, "1=1016 s=al,pw t=r", "term"); - ccl_qual_fitem(bibset, "1=/my/title", "dc.title"); - ccl_qual_fitem(bibset, "r=r", "date"); + ccl_qual_fitem(bibset, "t=x", "reg"); + ccl_qual_fitem(bibset, "t=z", "z"); + ccl_qual_fitem(bibset, "1=/my/title", "dc.title"); + ccl_qual_fitem(bibset, "r=r,omiteq", "date"); ccl_qual_fitem(bibset, "r=o", "x"); ccl_qual_fitem(bibset, "dc.title", "title"); - ccl_qual_fitem(bibset, "term dc.title", "comb"); + ccl_qual_fitem(bibset, "s=ag", "ag"); + ccl_qual_fitem(bibset, "s=sl u=2", "splitlist"); + ccl_qual_fitem(bibset, "s=sl u=2 u=3", "s2"); break; case 1: strcpy(tstline, "ti u=4 s=pw t=l,r"); @@ -84,10 +97,16 @@ void tst1(int pass) strcpy(tstline, "term 1=1016 s=al,pw t=r # default term"); ccl_qual_line(bibset, tstline); + strcpy(tstline, "reg t=x"); + ccl_qual_line(bibset, tstline); + + strcpy(tstline, "z t=z"); + ccl_qual_line(bibset, tstline); + strcpy(tstline, "dc.title 1=/my/title"); ccl_qual_line(bibset, tstline); - strcpy(tstline, "date r=r # ordered relation"); + strcpy(tstline, "date r=r,omiteq # ordered relation"); ccl_qual_line(bibset, tstline); strcpy(tstline, "x r=o # ordered relation"); @@ -98,16 +117,30 @@ void tst1(int pass) strcpy(tstline, "comb term dc.title # combination"); ccl_qual_line(bibset, tstline); + + strcpy(tstline, "ag s=ag"); + ccl_qual_line(bibset, tstline); + + strcpy(tstline, "splitlist s=sl u=2"); + ccl_qual_line(bibset, tstline); + + strcpy(tstline, "s2 s=sl u=2 u=3"); + ccl_qual_line(bibset, tstline); break; case 2: ccl_qual_buf(bibset, "ti u=4 s=pw t=l,r\n" "term 1=1016 s=al,pw t=r\r\n" "\n" + "reg t=x\r\n" + "z t=z\r\n" "dc.title 1=/my/title\n" - "date r=r\n" + "date r=r,omiteq\n" "x r=o\n" "title dc.title\n" "comb term dc.title\n" + "ag s=ag\n" + "splitlist s=sl u=2\n" + "s2 s=sl u=2 u=3\n" ); break; case 3: @@ -117,7 +150,7 @@ void tst1(int pass) xmlDocPtr doc; int r; const char *addinfo = 0; - const char *xml_str = + const char *xml_str = "\n" " \n" " \n" @@ -129,11 +162,17 @@ void tst1(int pass) " \n" " \n" " \n" + " \n" + " \n" + " \n" + " \n" + " \n" + " \n" " \n" " \n" " \n" " \n" - " \n" + " \n" " \n" " \n" " \n" @@ -145,8 +184,20 @@ void tst1(int pass) " \n" " \n" " \n" + " \n" + " \n" + " \n" + " \n" + " \n" + " \n" + " \n" + " \n" + " \n" + " \n" + " \n" + " \n" "\n"; - + doc = xmlParseMemory(xml_str, strlen(xml_str)); YAZ_CHECK(doc); @@ -163,8 +214,13 @@ void tst1(int pass) YAZ_CHECK(0); return; } - + YAZ_CHECK(tst_ccl_query(bibset, "x1", "@attr 4=2 @attr 1=1016 x1 ")); + + YAZ_CHECK(tst_ccl_query(bibset, "k\xc3\xb8" "benhavn", "@attr 4=2 @attr 1=1016 k\xc3\xb8" "benhavn ")); + + YAZ_CHECK(tst_ccl_query(bibset, "k\xf8" "benhavn", "@attr 4=2 @attr 1=1016 ""k\xf8" "benhavn ")); + YAZ_CHECK(tst_ccl_query(bibset, "(((((x1)))))", "@attr 4=2 @attr 1=1016 x1 ")); YAZ_CHECK(tst_ccl_query(bibset, "x1 and x2", "@and " @@ -172,87 +228,370 @@ void tst1(int pass) "@attr 4=2 @attr 1=1016 x2 ")); YAZ_CHECK(tst_ccl_query(bibset, "ti=x3", "@attr 4=2 @attr 1=4 x3 ")); YAZ_CHECK(tst_ccl_query(bibset, "dc.title=x4", "@attr 1=/my/title x4 ")); + YAZ_CHECK(tst_ccl_query(bibset, "dc.title=(x4)", "@attr 1=/my/title x4 ")); YAZ_CHECK(tst_ccl_query(bibset, "x1 and", 0)); YAZ_CHECK(tst_ccl_query(bibset, "tix=x5", 0)); - YAZ_CHECK(tst_ccl_query(bibset, "a%b", + YAZ_CHECK(tst_ccl_query(bibset, "a%b", "@prox 0 1 0 2 k 2 " "@attr 4=2 @attr 1=1016 a " "@attr 4=2 @attr 1=1016 b ")); - YAZ_CHECK(tst_ccl_query(bibset, "a%1b", + YAZ_CHECK(tst_ccl_query(bibset, "a%(b)", "@prox 0 1 0 2 k 2 " "@attr 4=2 @attr 1=1016 a " "@attr 4=2 @attr 1=1016 b ")); + YAZ_CHECK(tst_ccl_query(bibset, "(a)%(b)", + "@prox 0 1 0 2 k 2 " + "@attr 4=2 @attr 1=1016 a " + "@attr 4=2 @attr 1=1016 b ")); + YAZ_CHECK(tst_ccl_query(bibset, "a%1b", + "@prox 0 1 0 2 k 2 " + "@attr 4=2 @attr 1=1016 a " + "@attr 4=2 @attr 1=1016 b ")); + + YAZ_CHECK(tst_ccl_query(bibset, "a%2b", + "@prox 0 2 0 2 k 2 " + "@attr 4=2 @attr 1=1016 a " + "@attr 4=2 @attr 1=1016 b ")); - YAZ_CHECK(tst_ccl_query(bibset, "a%2b", + YAZ_CHECK(tst_ccl_query(bibset, "(a)%2(b)", "@prox 0 2 0 2 k 2 " "@attr 4=2 @attr 1=1016 a " "@attr 4=2 @attr 1=1016 b ")); - YAZ_CHECK(tst_ccl_query(bibset, "a%19b", + YAZ_CHECK(tst_ccl_query(bibset, "a%19b", "@prox 0 19 0 2 k 2 " "@attr 4=2 @attr 1=1016 a " "@attr 4=2 @attr 1=1016 b ")); - YAZ_CHECK(tst_ccl_query(bibset, "spid%æserne", + YAZ_CHECK(tst_ccl_query(bibset, "spid%æserne", "@prox 0 1 0 2 k 2 " "@attr 4=2 @attr 1=1016 spid " "@attr 4=2 @attr 1=1016 æserne ")); - YAZ_CHECK(tst_ccl_query(bibset, "a!b", + YAZ_CHECK(tst_ccl_query(bibset, "a!b", "@prox 0 1 1 2 k 2 " "@attr 4=2 @attr 1=1016 a " "@attr 4=2 @attr 1=1016 b ")); - YAZ_CHECK(tst_ccl_query(bibset, "a!2b", + YAZ_CHECK(tst_ccl_query(bibset, "a!2b", "@prox 0 2 1 2 k 2 " "@attr 4=2 @attr 1=1016 a " "@attr 4=2 @attr 1=1016 b ")); - YAZ_CHECK(tst_ccl_query(bibset, "date=1980", "@attr 2=3 1980 ")); - YAZ_CHECK(tst_ccl_query(bibset, "date=234-1990", "@and @attr 2=4 234 @attr 2=2 1990 ")); - YAZ_CHECK(tst_ccl_query(bibset, "date=234- 1990", "@and @attr 2=4 234 @attr 2=2 1990 ")); - YAZ_CHECK(tst_ccl_query(bibset, "date=234 -1990", "@and @attr 2=4 234 @attr 2=2 1990 ")); - YAZ_CHECK(tst_ccl_query(bibset, "date=234 - 1990", "@and @attr 2=4 234 @attr 2=2 1990 ")); - YAZ_CHECK(tst_ccl_query(bibset, "date=-1980", "@attr 2=2 1980 ")); - YAZ_CHECK(tst_ccl_query(bibset, "date=- 1980", "@attr 2=2 1980 ")); - YAZ_CHECK(tst_ccl_query(bibset, "x=-1980", "@attr 2=3 -1980 ")); - YAZ_CHECK(tst_ccl_query(bibset, "x=- 1980", "@attr 2=2 1980 ")); - YAZ_CHECK(tst_ccl_query(bibset, "x= -1980", "@attr 2=3 -1980 ")); - YAZ_CHECK(tst_ccl_query(bibset, "x=234-1990", "@attr 2=3 234-1990 ")); - YAZ_CHECK(tst_ccl_query(bibset, "x=234 - 1990", "@and @attr 2=4 234 @attr 2=2 1990 ")); - YAZ_CHECK(tst_ccl_query(bibset, "ti=a,b", "@attr 4=1 @attr 1=4 a,b ")); - YAZ_CHECK(tst_ccl_query(bibset, "ti=a, b", "@attr 4=1 @attr 1=4 \"a, b\" ")); - YAZ_CHECK(tst_ccl_query(bibset, "ti=a-b", "@attr 4=2 @attr 1=4 a-b ")); - YAZ_CHECK(tst_ccl_query(bibset, "ti=a - b", "@attr 4=1 @attr 1=4 \"a - b\" ")); - - YAZ_CHECK(tst_ccl_query(bibset, "a?", "@attr 5=1 @attr 4=2 @attr 1=1016 a ")); - YAZ_CHECK(tst_ccl_query(bibset, "a b", + YAZ_CHECK(tst_ccl_query(bibset, "a% (b or dc.title=c)", + "@prox 0 1 0 2 k 2 " + "@attr 4=2 @attr 1=1016 a " + "@or @attr 4=2 @attr 1=1016 b " + "@attr 4=2 @attr 1=/my/title c " + )); + + YAZ_CHECK(tst_ccl_query(bibset, "(a b) % (c)", + "@prox 0 1 0 2 k 2 @and " + "@attr 4=2 @attr 1=1016 a @attr 4=2 @attr 1=1016 b " + "@attr 4=2 @attr 1=1016 c " )); + + YAZ_CHECK(tst_ccl_query(bibset, "date=1980", + "1980 ")); + YAZ_CHECK(tst_ccl_query(bibset, "(date=1980)", + "1980 ")); + YAZ_CHECK(tst_ccl_query(bibset, "date>1980", + "@attr 2=5 1980 ")); + YAZ_CHECK(tst_ccl_query(bibset, "date>=1980", + "@attr 2=4 1980 ")); + YAZ_CHECK(tst_ccl_query(bibset, "date<1980", + "@attr 2=1 1980 ")); + YAZ_CHECK(tst_ccl_query(bibset, "date<=1980", + "@attr 2=2 1980 ")); + YAZ_CHECK(tst_ccl_query(bibset, "date=234-1990", + "@and @attr 2=4 234 @attr 2=2 1990 ")); + YAZ_CHECK(tst_ccl_query(bibset, "date=234- 1990", + "@and @attr 2=4 234 @attr 2=2 1990 ")); + YAZ_CHECK(tst_ccl_query(bibset, "date=234 -1990", + "@and @attr 2=4 234 @attr 2=2 1990 ")); + YAZ_CHECK(tst_ccl_query(bibset, "date=234 - 1990", + "@and @attr 2=4 234 @attr 2=2 1990 ")); + YAZ_CHECK(tst_ccl_query(bibset, "date=-1980", + "@attr 2=2 1980 ")); + YAZ_CHECK(tst_ccl_query(bibset, "date=- 1980", + "@attr 2=2 1980 ")); + YAZ_CHECK(tst_ccl_query(bibset, "x=-1980", + "@attr 2=3 -1980 ")); + YAZ_CHECK(tst_ccl_query(bibset, "x=- 1980", + "@attr 2=2 1980 ")); + YAZ_CHECK(tst_ccl_query(bibset, "x= -1980", + "@attr 2=3 -1980 ")); + YAZ_CHECK(tst_ccl_query(bibset, "x=234-1990", + "@attr 2=3 234-1990 ")); + YAZ_CHECK(tst_ccl_query(bibset, "x=234 - 1990", + "@and @attr 2=4 234 @attr 2=2 1990 ")); + YAZ_CHECK(tst_ccl_query(bibset, "ti=a,b", + "@attr 4=1 @attr 1=4 a,b ")); + YAZ_CHECK(tst_ccl_query(bibset, "ti=a, b", + "@attr 4=1 @attr 1=4 \"a, b\" ")); + YAZ_CHECK(tst_ccl_query(bibset, "ti=a-b", + "@attr 4=2 @attr 1=4 a-b ")); + YAZ_CHECK(tst_ccl_query(bibset, "ti=a - b", + "@attr 4=1 @attr 1=4 \"a - b\" ")); + + YAZ_CHECK(tst_ccl_query(bibset, "a?", + "@attr 5=1 @attr 4=2 @attr 1=1016 a ")); + YAZ_CHECK(tst_ccl_query(bibset, "a b", "@and @attr 4=2 @attr 1=1016 a " "@attr 4=2 @attr 1=1016 b ")); - YAZ_CHECK(tst_ccl_query(bibset, "a b?", + YAZ_CHECK(tst_ccl_query(bibset, "a b?", "@and @attr 4=2 @attr 1=1016 a " "@attr 5=1 @attr 4=2 @attr 1=1016 b ")); - YAZ_CHECK(tst_ccl_query(bibset, "title=a", + YAZ_CHECK(tst_ccl_query(bibset, "title=a", "@attr 1=/my/title a ")); - YAZ_CHECK(tst_ccl_query(bibset, "comb=a", + YAZ_CHECK(tst_ccl_query(bibset, "reg=a?b#\"c?\"", + "@attr 5=102 a.*b.c\\\\? ")); + YAZ_CHECK(tst_ccl_query(bibset, "z=a?b#\"c?\"", + "@attr 5=104 a?b#c\\\\? ")); + + YAZ_CHECK(tst_ccl_query(bibset, "reg=\\(", + "( ")); + YAZ_CHECK(tst_ccl_query(bibset, "z=\\(", + "( ")); + + YAZ_CHECK(tst_ccl_query(bibset, "z=a b#", + "@attr 5=104 \"a b#\" ")); + + YAZ_CHECK(tst_ccl_query(bibset, "reg=\\\"", + "\"\\\"\" ")); + YAZ_CHECK(tst_ccl_query(bibset, "z=\\\"", + "\"\\\"\" ")); + + YAZ_CHECK(tst_ccl_query(bibset, "reg=.", + ". ")); + YAZ_CHECK(tst_ccl_query(bibset, "z=.", + ". ")); + + YAZ_CHECK(tst_ccl_query(bibset, "reg=\".\"", + ". ")); + YAZ_CHECK(tst_ccl_query(bibset, "z=\".\"", + ". ")); + + YAZ_CHECK(tst_ccl_query(bibset, "reg=?\\?", + "@attr 5=102 .*\\\\? ")); + YAZ_CHECK(tst_ccl_query(bibset, "z=?\\?", + "@attr 5=104 ?\\\\? ")); + + YAZ_CHECK(tst_ccl_query(bibset, "reg=\"?\\?\"", + "?? ")); + YAZ_CHECK(tst_ccl_query(bibset, "z=\"?\\?\"", + "?? ")); + + YAZ_CHECK(tst_ccl_query(bibset, "reg=\\\\", + "\\\\ ")); + YAZ_CHECK(tst_ccl_query(bibset, "z=\\\\", + "\\\\ ")); + + YAZ_CHECK(tst_ccl_query(bibset, "\\\\", + "@attr 4=2 @attr 1=1016 \\\\ ")); + + YAZ_CHECK(tst_ccl_query(bibset, "comb=a", "@or @attr 4=2 @attr 1=1016 a " "@attr 1=/my/title a ")); - /* Bug #2895 */ -#if 1 - YAZ_CHECK(tst_ccl_query(bibset, "a? b?", - /* incorrect. */ - "@and @attr 4=2 @attr 1=1016 a? " - "@attr 5=1 @attr 4=2 @attr 1=1016 b ")); -#else - YAZ_CHECK(tst_ccl_query(bibset, "a? b?", - /* correct */ + YAZ_CHECK(tst_ccl_query(bibset, "a? b?", "@and @attr 5=1 @attr 4=2 @attr 1=1016 a " "@attr 5=1 @attr 4=2 @attr 1=1016 b ")); -#endif + + YAZ_CHECK(tst_ccl_query(bibset, "\"a\"? \"b?\"", + "@and @attr 5=1 @attr 4=2 @attr 1=1016 a " + "@attr 4=2 @attr 1=1016 b? ")); + + YAZ_CHECK(tst_ccl_query(bibset, "@and", + "@attr 4=2 @attr 1=1016 \\@and ")); + + YAZ_CHECK(tst_ccl_query(bibset, "a@and", + "@attr 4=2 @attr 1=1016 a@and ")); + + YAZ_CHECK(tst_ccl_query(bibset, "}", + "@attr 4=2 @attr 1=1016 } ")); + + YAZ_CHECK(tst_ccl_query(bibset, "{", + "@attr 4=2 @attr 1=1016 \"{\" ")); + + YAZ_CHECK(tst_ccl_query(bibset, "\"a b c\"", + "@attr 4=1 @attr 1=1016 \"a b c\" ")); + + YAZ_CHECK(tst_ccl_query(bibset, "\"a b c \"", + "@attr 4=1 @attr 1=1016 \"a b c \" ")); + + YAZ_CHECK(tst_ccl_query(bibset, "ag=a", + "@attr 4=2 a ")); + + YAZ_CHECK(tst_ccl_query(bibset, "ag=a b", + "@attr 4=2 \"a b\" ")); + + YAZ_CHECK(tst_ccl_query(bibset, "ag=a b \"c d\"", + "@and @attr 4=2 \"a b\" @attr 4=1 \"c d\" ")); + + YAZ_CHECK(tst_ccl_query(bibset, "ag=a b \"c\"", + "@attr 4=2 \"a b c\" ")); + + YAZ_CHECK(tst_ccl_query(bibset, "ag=a b \"\"", + "@attr 4=2 \"a b \" ")); + + YAZ_CHECK(tst_ccl_query(bibset, "ag=a \"b c\" d", + "@and @and " + "@attr 4=2 a @attr 4=1 \"b c\" @attr 4=2 d ")); + + YAZ_CHECK(tst_ccl_query(bibset, "ag=\"a b c\"", + "@attr 4=1 \"a b c\" ")); + + YAZ_CHECK(tst_ccl_query(bibset, "ag=\"a b c\" \"d e\"", + "@and @attr 4=1 \"a b c\" @attr 4=1 \"d e\" ")); + + YAZ_CHECK(tst_ccl_query(bibset, "splitlist=a", "@attr 1=2 a ")); + YAZ_CHECK(tst_ccl_query(bibset, "splitlist=a b", "@or " + "@and @attr 1=2 a @attr 1=2 b @attr 1=2 \"a b\" ")); + + YAZ_CHECK(tst_ccl_query(bibset, "splitlist=a b c", "@or @or " + "@and " + "@attr 1=2 a " + "@or @and @attr 1=2 b @attr 1=2 c " + "@attr 1=2 \"b c\" " + "@and @attr 1=2 \"a b\" @attr 1=2 c " + "@attr 1=2 \"a b c\" ")); + + YAZ_CHECK(tst_ccl_query(bibset, "splitlist=a?", 0)); + YAZ_CHECK(tst_ccl_query(bibset, "splitlist=a b?", 0)); + YAZ_CHECK(tst_ccl_query(bibset, "splitlist=a b c?", 0)); + YAZ_CHECK(tst_ccl_query(bibset, "splitlist=a b c d?", 0)); + + YAZ_CHECK(tst_ccl_query(bibset, "s2=a", "@or @attr 1=2 a @attr 1=3 a ")); + + YAZ_CHECK(tst_ccl_query(bibset, "s2=a b", "@or " + "@and " "@or @attr 1=2 a @attr 1=3 a " + "@or @attr 1=2 b @attr 1=3 b " + "@or @attr 1=2 \"a b\" @attr 1=3 \"a b\" ")); + + YAZ_CHECK(tst_ccl_query(bibset, "s2=a? b", 0)); + YAZ_CHECK(tst_ccl_query(bibset, "s2=a b?", 0)); + YAZ_CHECK(tst_ccl_query(bibset, "s2=a b? c", 0)); + + YAZ_CHECK(tst_ccl_query(bibset, "z=(ti=b)", "@attr 4=2 @attr 1=4 b ")); + YAZ_CHECK(tst_ccl_query(bibset, "z=(ti=b?)", + "@attr 5=1 @attr 4=2 @attr 1=4 b ")); + YAZ_CHECK(tst_ccl_query(bibset, "z=(a? and ti=b? and c?)", + "@and @and " + "@attr 5=104 a? " + "@attr 5=1 @attr 4=2 @attr 1=4 b " + "@attr 5=104 c? ")); + + ccl_qual_rm(&bibset); +} + +void tst2(void) +{ + CCL_bibset bibset = ccl_qual_mk(); + + YAZ_CHECK(bibset); + if (!bibset) + return; + + ccl_qual_fitem(bibset, "u=4 s=pw t=l,r", "ti"); + ccl_qual_fitem(bibset, "1=1016 s=al,pw t=z", "term"); + + YAZ_CHECK(tst_ccl_query(bibset, "a?#", + "@attr 5=104 @attr 4=2 @attr 1=1016 a?# ")); + + YAZ_CHECK(tst_ccl_query(bibset, "a b?#", + "@and @attr 4=2 @attr 1=1016 a @attr 5=104 @attr 4=2 @attr 1=1016 b?# ")); + + YAZ_CHECK(tst_ccl_query(bibset, "a*", + "@attr 4=2 @attr 1=1016 a* ")); + + YAZ_CHECK(tst_ccl_query(bibset, "a?", + "@attr 5=104 @attr 4=2 @attr 1=1016 a? ")); + + ccl_qual_fitem(bibset, "*", "@truncation"); + YAZ_CHECK(tst_ccl_query(bibset, "a*", + "@attr 5=104 @attr 4=2 @attr 1=1016 a? ")); + + YAZ_CHECK(tst_ccl_query(bibset, "a?", + "@attr 4=2 @attr 1=1016 a? ")); + + ccl_qual_fitem(bibset, "?", "@mask"); + YAZ_CHECK(tst_ccl_query(bibset, "a?", + "@attr 5=104 @attr 4=2 @attr 1=1016 a# ")); + + + ccl_qual_fitem(bibset, "", "@mask"); + ccl_qual_fitem(bibset, "", "@truncation"); + YAZ_CHECK(tst_ccl_query(bibset, "a?#", + "@attr 4=2 @attr 1=1016 a?# ")); + + ccl_qual_fitem(bibset, "og", "@and"); + ccl_qual_fitem(bibset, "eller", "@or"); + ccl_qual_fitem(bibset, "ikke", "@not"); + + YAZ_CHECK(tst_ccl_query(bibset, "a og b eller c ikke d", + "@not @or @and @attr 4=2 @attr 1=1016 a " + "@attr 4=2 @attr 1=1016 b " + "@attr 4=2 @attr 1=1016 c " + "@attr 4=2 @attr 1=1016 d ")); + ccl_qual_rm(&bibset); +} + + +void tst3(void) +{ + CCL_bibset b = ccl_qual_mk(); + + YAZ_CHECK(b); + if (!b) + return; + + ccl_qual_fitem(b, "2=102", "rk"); + ccl_qual_fitem(b, "1=9903 r=r", "lex"); + ccl_qual_fitem(b, "4=109 r=o", "st-numeric"); + + YAZ_CHECK(tst_ccl_query(b, "rk=(lex=9)", "@attr 2=3 @attr 1=9903 9 ")); + YAZ_CHECK(tst_ccl_query(b, "rk=(lex>9)", "@attr 2=5 @attr 1=9903 9 ")); + YAZ_CHECK(tst_ccl_query(b, "rk=(lex,st-numeric=300-600)", + "@and " + "@attr 2=4 @attr 4=109 @attr 1=9903 300 " + "@attr 2=2 @attr 4=109 @attr 1=9903 600 ")); + YAZ_CHECK(tst_ccl_query(b, "rk=(lex=9) and b", + "@and @attr 2=3 @attr 1=9903 9 b ")); + YAZ_CHECK(tst_ccl_query(b, "rk=(lex=9 and b)", + "@and @attr 2=3 @attr 1=9903 9 @attr 2=102 b ")); + ccl_qual_rm(&b); +} + +void tst_addinfo(void) +{ + const char *addinfo; + int r; + CCL_bibset bibset = ccl_qual_mk(); + + r = ccl_qual_fitem2(bibset, "u=4 s=pw t=l,r", "ti", &addinfo); + YAZ_CHECK(r == 0 && addinfo == 0); + + r = ccl_qual_fitem2(bibset, "1=1016 s=al,pw t=z", "term", &addinfo); + YAZ_CHECK(r == 0 && addinfo == 0); + + r = ccl_qual_fitem2(bibset, "x=", "term", &addinfo); + YAZ_CHECK(r != 0 && addinfo != 0); + + r = ccl_qual_fitem2(bibset, "12=3", "term", &addinfo); + YAZ_CHECK(r == 0 && addinfo == 0); + + r = ccl_qual_fitem2(bibset, "ab=3", "term", &addinfo); + YAZ_CHECK(r != 0 && addinfo != 0); + + r = ccl_qual_fitem2(bibset, "x=ab", "term", &addinfo); + YAZ_CHECK(r != 0 && addinfo != 0); + + r = ccl_qual_fitem2(bibset, "s=ab", "term", &addinfo); + YAZ_CHECK(r == 0 && addinfo == 0); + ccl_qual_rm(&bibset); } @@ -264,6 +603,9 @@ int main(int argc, char **argv) tst1(1); tst1(2); tst1(3); + tst2(); + tst3(); + tst_addinfo(); YAZ_CHECK_TERM; } /*