t/2-parser.t

   1 # $Id: 2-parser.t,v 1.3 2004-12-20 09:46:58 mike Exp $
   2
   3 use strict;
   4 use warnings;
   5
   6 BEGIN {
   7     use vars qw(@tests);
   8     @tests = (
   9               [ 'brian',
  10                 "term: brian" ],
  11               [ '"brian"',
  12                 "term: brian" ],
  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" ],
  23               [ '@set foo123',
  24                 "rset: foo123" ],
  25               [ '@attr 1=1003 @set foo123',
  26                 "rset: foo123\n\tattr: bib-1 1=1003" ],
  27               [ '@or brian dennis',
  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" .
  39                     "\tterm: unix" ],
  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 ' .
  50                 '@attr 1=4 unix',
  51                 "and\n\tor\n" .
  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" ]
  58               );
  59 }
  60 use Test::More tests => 2*scalar(@tests) + 2;
  61 BEGIN { use_ok('Net::Z3950::PQF') };
  62
  63 my $parser = new Net::Z3950::PQF();
  64 ok(defined $parser, "created parser");
  65
  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'");
  73     exit if !$ok;
  74 }