Support for Rset nodes and forparsing @set, test scripts

[perl-pqf.git] / t / 1-node.t

diff --git a/t/1-node.t b/t/1-node.t
index 2a53374..94c617b 100644 (file)
--- a/t/1-node.t
+++ b/t/1-node.t
@@ -1,8 +1,8 @@
-# $Id: 1-node.t,v 1.3 2004-12-20 09:23:58 mike Exp $
+# $Id: 1-node.t,v 1.4 2004-12-20 09:46:58 mike Exp $
 
 use strict;
 use warnings;
-use Test::More tests => 14;
+use Test::More tests => 17;
 BEGIN { use_ok('Net::Z3950::PQF') };
 
 my $term1 = new Net::Z3950::PQF::TermNode('unix');
@@ -19,6 +19,14 @@ $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 $rset = new Net::Z3950::PQF::RsetNode('oldRsetName',
+                                        [ "bib-1", 1, 1003 ]);
+ok(defined $rset, "created 'rset' node with attrs");
+ok($rset->isa("Net::Z3950::PQF::Node"), "'rset' is a node");
+$text = $rset->render(0);
+ok($text eq "rset: oldRsetName\n\tattr: bib-1 1=1003\n",
+       "rendered 'rset' node with attrs");
+
 my $or = new Net::Z3950::PQF::OrNode($term1, $term2);
 ok(defined $or, "created 'or' node");
 ok($or->isa("Net::Z3950::PQF::BooleanNode"), "'or' is a boolean node");