view release on metacpan or  search on metacpan

t/38source.t  view on Meta::CPAN

$record = $source->getPPN( '777' );
is( $record, undef, "failed to get record" );
is( $@, "Failed to parse PICA::Record" );

#### SRU

use PICA::SRUSearchParser;
use PICA::XMLParser;

my $xml = do { local (@ARGV, $/) = "t/files/searchRetrieveResponse-1.xml"; <>; };

my $xmlparser = new PICA::XMLParser();
my $parser = PICA::SRUSearchParser->new( $xmlparser );
$parser->parse( $xml );

is( $parser->numberOfRecords, 2, 'SRU response' );
is( $parser->resultSetId, "SID68ddfabd-11a4S4" );
is( $parser->currentNumber, 2);
is( $xmlparser->counter(), 2 );

t/38source.t  view on Meta::CPAN

*LWP::Simple::get = sub($) { return $xml; };

$source = PICA::Source->new( SRU => "http://example.com" );
my @records = $source->cqlQuery("pica.ppn=123")->records();
is( scalar @records, 2, 'SRU cql query' );

# differen SRU response
exit;
$xml = do { local (@ARGV, $/) = "t/files/searchRetrieveResponse-2.xml"; <>; };
print $xml;

$parser = PICA::SRUSearchParser->new();
$parser->parse( $xml );
is( $parser->numberOfRecords, 1, 'SRU response' );

# TODO: read from config file