+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");
+