1 # $Id: 1-node.t,v 1.3 2004-12-20 09:23:58 mike Exp $
5 use Test::More tests => 14;
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 ok($term1->isa("Net::Z3950::PQF::Node"), "'term' is a node");
11 my $text = $term1->render(0);
12 ok($text eq "term: unix\n", "rendered simple 'term' node");
14 my $term2 = new Net::Z3950::PQF::TermNode('elements',
17 ok(defined $term2, "created 'term' node with attrs");
18 $text = $term2->render(0);
19 ok($text eq "term: elements\n\tattr: bib-1 1=21\n\tattr: bib-1 2=3\n",
20 "rendered 'term' node with attrs");
22 my $or = new Net::Z3950::PQF::OrNode($term1, $term2);
23 ok(defined $or, "created 'or' node");
24 ok($or->isa("Net::Z3950::PQF::BooleanNode"), "'or' is a boolean node");
25 ok($or->isa("Net::Z3950::PQF::Node"), "'or' is a node");
26 $text = $or->render(0);
27 my $wanted = <<'__EOT__';
34 ok($text eq $wanted, "rendered 'or' node");
36 my $term3 = new Net::Z3950::PQF::TermNode('kerni',
40 ok(defined $term3, "created third 'term' node");
41 $text = $term3->render(0);
42 ok($text eq ("term: kerni\n\tattr: bib-1 1=1003\n" .
43 "\tattr: bib-1 2=3\n\tattr: bib-1 5=1\n"),
44 "rendered third 'term' node");
46 my $and = new Net::Z3950::PQF::AndNode($or, $term3);
47 ok(defined $and, "created 'and' node");
48 $text = $and->render(0);
49 $wanted = <<'__EOT__';
61 ok($text eq $wanted, "rendered 'and' node");