1 # $Id: 1-node.t,v 1.2 2004-12-17 15:32:20 mike Exp $
5 use Test::More tests => 11;
6 BEGIN { use_ok('Net::Z3950::PQF') };
8 my $term1 = new Net::Z3950::PQF::TermNode('unix');
9 ok(defined $term1, "created simple term node");
10 my $text = $term1->render(0);
11 ok($text eq "term: unix\n", "rendered simple term node");
13 my $term2 = new Net::Z3950::PQF::TermNode('elements',
16 ok(defined $term2, "created term node with attrs");
17 $text = $term2->render(0);
18 ok($text eq "term: elements\n\tattr: bib-1 1=21\n\tattr: bib-1 2=3\n",
19 "rendered term node with attrs");
21 my $or = new Net::Z3950::PQF::OrNode($term1, $term2);
22 ok(defined $or, "created or node");
23 $text = $or->render(0);
24 my $wanted = <<'__EOT__';
31 ok($text eq $wanted, "rendered or node");
33 my $term3 = new Net::Z3950::PQF::TermNode('kerni',
37 ok(defined $term3, "created third term node");
38 $text = $term3->render(0);
39 ok($text eq ("term: kerni\n\tattr: bib-1 1=1003\n" .
40 "\tattr: bib-1 2=3\n\tattr: bib-1 5=1\n"),
41 "rendered third term node");
43 my $and = new Net::Z3950::PQF::AndNode($or, $term3);
44 ok(defined $and, "created and node");
45 $text = $and->render(0);
46 $wanted = <<'__EOT__';
58 ok($text eq $wanted, "rendered and node");