X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=t%2F13-resultset.t;h=b3e622590d8aa9cfe5a9c86bb1a03267d150b5f8;hb=13db0183994ec6f11cb3065f7a3611f01224662c;hp=046bb7b5eebb491ebe33d0bdd3dfa84541a345e5;hpb=9140a0be284807f6509e1b3800c6093633940e17;p=ZOOM-Perl-moved-to-github.git diff --git a/t/13-resultset.t b/t/13-resultset.t index 046bb7b..b3e6225 100644 --- a/t/13-resultset.t +++ b/t/13-resultset.t @@ -1,5 +1,3 @@ -# $Id: 13-resultset.t,v 1.9 2006-11-28 16:47:19 mike Exp $ - # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 13-resultset.t' @@ -33,21 +31,20 @@ ok($errcode == 238, "can't fetch CANMARC ($errmsg)"); Net::Z3950::ZOOM::resultset_option_set($rs, preferredRecordSyntax => "usmarc"); $rec = Net::Z3950::ZOOM::resultset_record($rs, 0); -my $len = 0; -my $data1 = Net::Z3950::ZOOM::record_get($rec, "render", $len); +my $data1 = Net::Z3950::ZOOM::record_get($rec, "render"); Net::Z3950::ZOOM::resultset_option_set($rs, elementSetName => "b"); -my $data2 = Net::Z3950::ZOOM::record_get($rec, "render", $len); +my $data2 = Net::Z3950::ZOOM::record_get($rec, "render"); ok($data2 eq $data1, "record doesn't know about RS options"); # Now re-fetch record from result-set with new option $rec = Net::Z3950::ZOOM::resultset_record($rs, 0); -$data2 = Net::Z3950::ZOOM::record_get($rec, "render", $len); +$data2 = Net::Z3950::ZOOM::record_get($rec, "render"); ok(length($data2) < length($data1), "re-fetched record is brief, old was full"); Net::Z3950::ZOOM::resultset_option_set($rs, preferredRecordSyntax => "xml"); $rec = Net::Z3950::ZOOM::resultset_record($rs, 0); my $cloned = Net::Z3950::ZOOM::record_clone($rec); ok(defined $cloned, "cloned record"); -$data2 = Net::Z3950::ZOOM::record_get($rec, "render", $len); +$data2 = Net::Z3950::ZOOM::record_get($rec, "render"); ok($data2 =~ /