X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=t%2F13-resultset.t;h=6a5cda7ee5bc99a7dd5258ed69da0145dc17037a;hb=ce460f89feee123e409d9da994a8ea66e87942bb;hp=c081ba4b6dc205a5911f0a5917dac53e0972af77;hpb=374750e301985d4a1e9bed1e78baa5846743d772;p=ZOOM-Perl-moved-to-github.git diff --git a/t/13-resultset.t b/t/13-resultset.t index c081ba4..6a5cda7 100644 --- a/t/13-resultset.t +++ b/t/13-resultset.t @@ -1,11 +1,11 @@ -# $Id: 13-resultset.t,v 1.1 2005-11-01 11:55:07 mike Exp $ +# $Id: 13-resultset.t,v 1.6 2005-11-07 15:48:21 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' use strict; use warnings; -use Test::More tests => 21; +use Test::More tests => 23; BEGIN { use_ok('Net::Z3950::ZOOM') }; my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy"); @@ -15,17 +15,69 @@ my $conn = Net::Z3950::ZOOM::connection_new($host, 0); $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo); ok($errcode == 0, "connection to '$host'"); -my $query = '@attr 1=4 minerals'; +my $query = '@attr 1=4 mineral'; my $rs = Net::Z3950::ZOOM::connection_search_pqf($conn, $query); $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo); ok($errcode == 0, "search for '$query'"); +ok(Net::Z3950::ZOOM::resultset_size($rs) == 2, "found 2 records"); my $syntax = "usmarc"; Net::Z3950::ZOOM::resultset_option_set($rs, preferredRecordSyntax => $syntax); my $val = Net::Z3950::ZOOM::resultset_option_get($rs, "preferredRecordSyntax"); ok($val eq $syntax, "preferred record syntax set to '$val'"); +my $rec = Net::Z3950::ZOOM::resultset_record($rs, 0); +my $len = 0; +my $data1 = Net::Z3950::ZOOM::record_get($rec, "render", $len); +Net::Z3950::ZOOM::resultset_option_set($rs, elementSetName => "b"); +my $data2 = Net::Z3950::ZOOM::record_get($rec, "render", $len); +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); +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); +ok($data2 =~ /