+
+my $n = Net::Z3950::ZOOM::resultset_size($rs);
+ok($n == 1, "found 1 record as expected");
+
+my $rec = Net::Z3950::ZOOM::resultset_record($rs, 0);
+ok(1, "got record idenfified by query");
+
+my $len = 0;
+my $data = Net::Z3950::ZOOM::record_get($rec, "render", $len);
+ok(1, "rendered record");
+ok($data =~ /^035 \$a ESDD0006$/m, "record is the expected one");
+
+Net::Z3950::ZOOM::resultset_destroy($rs);
+Net::Z3950::ZOOM::query_destroy($q);
+Net::Z3950::ZOOM::connection_destroy($conn);
+ok(1, "destroyed all objects");