1 # $Id: 2-parser.t,v 1.3 2004-12-20 09:46:58 mike Exp $
13 [ '"brian kernighan"',
14 "term: brian kernighan" ],
15 [ '@attr 1=1003 brian',
16 "term: brian\n\tattr: bib-1 1=1003" ],
17 [ '@attr 1=1003 "brian"',
18 "term: brian\n\tattr: bib-1 1=1003" ],
19 [ '@attr 1=1003 @attr 2=3 brian',
20 "term: brian\n\tattr: bib-1 1=1003\n\tattr: bib-1 2=3" ],
21 [ '@and brian dennis',
22 "and\n\tterm: brian\n\tterm: dennis" ],
25 [ '@attr 1=1003 @set foo123',
26 "rset: foo123\n\tattr: bib-1 1=1003" ],
28 "or\n\tterm: brian\n\tterm: dennis" ],
29 [ '@or ken @and brian dennis',
30 "or\n\tterm: ken\n\tand\n\t\tterm: brian\n\t\tterm: dennis" ],
31 [ '@attr zthes 1=3 dennis',
32 "term: dennis\n\tattr: zthes 1=3" ],
33 [ '@attrset zthes @attr 1=3 dennis',
34 "term: dennis\n\tattr: zthes 1=3" ],
35 [ '@attrset zthes @attr bib-1 1=3 dennis',
36 "term: dennis\n\tattr: bib-1 1=3" ],
37 [ '@or @attr 1=1003 dennis unix',
38 "or\n\tterm: dennis\n\t\tattr: bib-1 1=1003\n" .
40 [ '@or dennis @attr 1=4 unix',
41 "or\n\tterm: dennis\n" .
42 "\tterm: unix\n\t\tattr: bib-1 1=4" ],
43 [ '@attr bib-1 1=1003 @or dennis @attr 1=4 unix',
44 "or\n\tterm: dennis\n\t\tattr: bib-1 1=1003\n" .
45 "\tterm: unix\n\t\tattr: bib-1 1=4" ],
46 [ '@attr 1=1003 @or dennis ken',
47 "or\n\tterm: dennis\n\t\tattr: bib-1 1=1003\n" .
48 "\tterm: ken\n\t\tattr: bib-1 1=1003" ],
49 [ '@attr 1=1003 @attr 2=3 @and @or ken @attr 5=3 den ' .
52 "\t\tterm: ken\n\t\t\tattr: bib-1 1=1003\n" .
53 "\t\t\tattr: bib-1 2=3\n" .
54 "\t\tterm: den\n\t\t\tattr: bib-1 1=1003\n" .
55 "\t\t\tattr: bib-1 2=3\n" .
56 "\t\t\tattr: bib-1 5=3\n" .
57 "\tterm: unix\n\t\tattr: bib-1 1=4\n\t\tattr: bib-1 2=3" ]
60 use Test::More tests => 2*scalar(@tests) + 2;
61 BEGIN { use_ok('Net::Z3950::PQF') };
63 my $parser = new Net::Z3950::PQF();
64 ok(defined $parser, "created parser");
66 foreach my $test (@tests) {
67 my($query, $text) = @$test;
68 my $top = $parser->parse($query);
69 ok(defined $top, "parsed: $query");
70 my $rendered = $top->render(0);
71 my $ok = $rendered eq "$text\n";
72 ok($ok, $ok ? "rendered" : "wanted: '$text\n', got '$rendered'");