X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=t%2F1-node.t;h=94c617b6cc2a2be885626d71a9371d2276fb1d32;hb=HEAD;hp=2a533749d9763334aebd12679102e79a26d5aa7c;hpb=cd7b681b3bb1ff3c96b410643a1c18a61aaf3f67;p=perl-pqf.git

diff --git a/t/1-node.t b/t/1-node.t
index 2a53374..94c617b 100644
--- 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");