+# $Id: 1.t,v 1.2 2004-12-17 15:29:33 mike Exp $
+
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 1.t'
# change 'tests => 1' to 'tests => last_test_to_print';
-use Test;
-BEGIN { plan tests => 1 };
-use Net::Z3950::PQF;
-ok(1); # If we made it this far, we're ok.
+use strict;
+use warnings;
+use Test::More tests => 12;
+BEGIN { use_ok('Net::Z3950::PQF') };
+
+my $parser = new Net::Z3950::PQF();
+ok(defined $parser, "created parser");
+
+my $term1 = new Net::Z3950::PQF::TermNode('unix');
+ok(defined $term1, "created simple term node");
+my $text = $term1->render(0);
+ok($text eq "term: unix\n", "rendered simple term node");
+
+my $term2 = new Net::Z3950::PQF::TermNode('elements',
+ [ "bib-1", 1, 21 ],
+ [ "bib-1", 2, 3 ]);
+ok(defined $term2, "created term node with attrs");
+$text = $term2->render(0);
+ok($text eq "term: elements\n\tattr: bib-1 1=21\n\tattr: bib-1 2=3\n",
+ "rendered term node with attrs");
+
+my $or = new Net::Z3950::PQF::OrNode($term1, $term2);
+ok(defined $or, "created or node");
+$text = $or->render(0);
+my $wanted = <<'__EOT__';
+or
+ term: unix
+ term: elements
+ attr: bib-1 1=21
+ attr: bib-1 2=3
+__EOT__
+ok($text eq $wanted, "rendered or node");
+
+my $term3 = new Net::Z3950::PQF::TermNode('kerni',
+ [ "bib-1", 1, 1003 ],
+ [ "bib-1", 2, 3 ],
+ [ "bib-1", 5, 1 ]);
+ok(defined $term3, "created third term node");
+$text = $term3->render(0);
+ok($text eq ("term: kerni\n\tattr: bib-1 1=1003\n" .
+ "\tattr: bib-1 2=3\n\tattr: bib-1 5=1\n"),
+ "rendered third term node");
+
+my $and = new Net::Z3950::PQF::AndNode($or, $term3);
+ok(defined $and, "created and node");
+$text = $and->render(0);
+$wanted = <<'__EOT__';
+and
+ or
+ term: unix
+ term: elements
+ attr: bib-1 1=21
+ attr: bib-1 2=3
+ term: kerni
+ attr: bib-1 1=1003
+ attr: bib-1 2=3
+ attr: bib-1 5=1
+__EOT__
+ok($text eq $wanted, "rendered and node");
-#########################
-# Insert your test code below, the Test::More module is use()ed here so read
-# its man page ( perldoc Test::More ) for help writing this test script.
+#my $query = '@and @attr 1=1003 kernighan @attr 1=4 unix';
+#my $top = $parser->parse($query);
+#ok(defined $top, "parsed query");