-for (my $i = 0; $i < $n; $i++) {
- my $rec = Net::Z3950::ZOOM::resultset_record($rs, $i);
- my $len = 0;
- my $data = Net::Z3950::ZOOM::record_get($rec, "render", $len);
- my $raw = Net::Z3950::ZOOM::record_get($rec, "raw", $len);
-}
+my $rec = Net::Z3950::ZOOM::resultset_record($rs, 0);
+my $len = 0;
+my $data = Net::Z3950::ZOOM::record_get($rec, "render", $len);
+ok($data =~ /245 +\$a ISOTOPIC DATES OF ROCKS AND MINERALS/,
+ "rendered record has expected title");
+my $raw = Net::Z3950::ZOOM::record_get($rec, "raw", $len);
+ok($raw =~ /^00981n/, "raw record contains expected header");