+
+$data3 = Net::Z3950::ZOOM::record_get($cloned, "render", $len);
+ok(1, "rendered cloned record after its result-set was destroyed");
+ok($data3 eq $data2, "render of clone as expected");
+Net::Z3950::ZOOM::record_destroy($cloned);
+ok(1, "destroyed cloned record");