X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=t%2F23-resultset.t;h=5e4d9c8e8011413b6a9ad7e83e18476a07f7e801;hb=6795d689424605833b03f6269e95b8b0cd3a1757;hp=31917d943364bd2fdc07f24fc01f650997ada787;hpb=6d4ef29991a70eb50929625864326f5e9e9d03dc;p=ZOOM-Perl-moved-to-github.git diff --git a/t/23-resultset.t b/t/23-resultset.t index 31917d9..5e4d9c8 100644 --- a/t/23-resultset.t +++ b/t/23-resultset.t @@ -1,14 +1,14 @@ -# $Id: 23-resultset.t,v 1.2 2005-11-04 16:21:04 mike Exp $ +# $Id: 23-resultset.t,v 1.5 2006-11-02 17:48:26 mike Exp $ # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 23-resultset.t' use strict; use warnings; -use Test::More tests => 19; +use Test::More tests => 23; BEGIN { use_ok('ZOOM') }; -my $host = "indexdata.com/gils"; +my $host = "z3950.indexdata.com/gils"; my $conn; eval { $conn = new ZOOM::Connection($host, 0) }; ok(!$@, "connection to '$host'"); @@ -36,6 +36,8 @@ ok(length($data2) < length($data1), "re-fetched record is brief, old was full"); $rs->option(preferredRecordSyntax => "xml"); $rec = $rs->record(0); +my $cloned = $rec->clone(); +ok(defined $cloned, "cloned record"); $data2 = $rec->render(); ok($data2 =~ /