use Test::More tests => 13;

use strict;
use warnings;

use_ok( 'Net::OAI::Harvester' );

my $h = Net::OAI::Harvester->new( 
    baseURL => 'http://memory.loc.gov/cgi-bin/oai2_0' 
);
isa_ok( $h, 'Net::OAI::Harvester', 'new()' );

my $l = $h->listMetadataFormats();
isa_ok( $l, 'Net::OAI::ListMetadataFormats', 'listMetadataFormats()' );

ok( ! $l->errorCode(), 'errorCode()' );
ok( ! $l->errorString(), 'errorString()' );

my @prefixes = $l->prefixes();
is( @prefixes, 4, 'prefixes()' );
my @hasoai_dc = grep /^oai_dc$/, @prefixes;
is( @hasoai_dc, 1, 'standard prefix oai_dc is supplied' );

my @namespaces = $l->namespaces();
is( @namespaces, 4, 'namespaces()' );

is( $l->namespaces_byprefix('oai_dc'), 'http://www.openarchives.org/OAI/2.0/oai_dc/', 'correct namespace for oai_dc');

my @schemas = $l->schemas();
is( @schemas, 4, 'schemas()' );

is( $l->schemas_byprefix('oai_dc'), 'http://www.openarchives.org/OAI/2.0/oai_dc.xsd', 'correct schema location for oai_dc');

$l = $h->listMetadataFormats( identifier => 123 );
is( $l->errorCode(), 'idDoesNotExist', 'expected error code' );
is( $l->errorString(), 'id not found', 'expected errorString()' );