1 # $Id: 1.t,v 1.2 2004-12-17 15:29:33 mike Exp $
3 # Before `make install' is performed this script should be runnable with
4 # `make test'. After `make install' it should work as `perl 1.t'
6 #########################
8 # change 'tests => 1' to 'tests => last_test_to_print';
12 use Test::More tests => 12;
13 BEGIN { use_ok('Net::Z3950::PQF') };
15 my $parser = new Net::Z3950::PQF();
16 ok(defined $parser, "created parser");
18 my $term1 = new Net::Z3950::PQF::TermNode('unix');
19 ok(defined $term1, "created simple term node");
20 my $text = $term1->render(0);
21 ok($text eq "term: unix\n", "rendered simple term node");
23 my $term2 = new Net::Z3950::PQF::TermNode('elements',
26 ok(defined $term2, "created term node with attrs");
27 $text = $term2->render(0);
28 ok($text eq "term: elements\n\tattr: bib-1 1=21\n\tattr: bib-1 2=3\n",
29 "rendered term node with attrs");
31 my $or = new Net::Z3950::PQF::OrNode($term1, $term2);
32 ok(defined $or, "created or node");
33 $text = $or->render(0);
34 my $wanted = <<'__EOT__';
41 ok($text eq $wanted, "rendered or node");
43 my $term3 = new Net::Z3950::PQF::TermNode('kerni',
47 ok(defined $term3, "created third term node");
48 $text = $term3->render(0);
49 ok($text eq ("term: kerni\n\tattr: bib-1 1=1003\n" .
50 "\tattr: bib-1 2=3\n\tattr: bib-1 5=1\n"),
51 "rendered third term node");
53 my $and = new Net::Z3950::PQF::AndNode($or, $term3);
54 ok(defined $and, "created and node");
55 $text = $and->render(0);
56 $wanted = <<'__EOT__';
68 ok($text eq $wanted, "rendered and node");
71 #my $query = '@and @attr 1=1003 kernighan @attr 1=4 unix';
72 #my $top = $parser->parse($query);
73 #ok(defined $top, "parsed query");