+
+
+sub check_record {
+ my($conn, $q) = @_;
+
+ my $rs = Net::Z3950::ZOOM::connection_search($conn, $q);
+ my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy");
+ $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo);
+ ok($errcode == 0, "search");
+
+ 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 $data = Net::Z3950::ZOOM::record_get($rec, "render");
+ ok(1, "rendered record");
+ ok($data =~ /^035 \$a ESDD0006$/m, "record is the expected one");
+
+ Net::Z3950::ZOOM::resultset_destroy($rs);
+}