OAI-Harvester-1.20/t/003.error.t

7 use_ok( 'Net::OAI::Harvester' );
13     my $h = new_ok('Net::OAI::Harvester' => [ 'baseURL' => 'http://www.domain.invalid' ]);
16     isa_ok( $i, 'Net::OAI::Identify' );
17     is( $i->is_error(), -1, 'is_error == -1 for no valid OAI response');
36     my $h = new_ok('Net::OAI::Harvester' => [ 'baseURL' => 'http://www.google.com:54321/' ]);
39     isa_ok( $i, 'Net::OAI::Identify' );
40     is( $i->is_error(), -1, 'is_error == -1 for no valid OAI response');
58 …my $h = new_ok('Net::OAI::Harvester' => [ 'baseURL' => 'http://memory.loc.gov/cgi-bin/nonexistant_…
61     isa_ok( $i, 'Net::OAI::Identify' );
62     is( $i->is_error(), -1, 'is_error == -1 for no valid OAI response');
83     my $h = new_ok('Net::OAI::Harvester' => [ 'baseURL' => $url ]);
86     isa_ok( $i, 'Net::OAI::Identify' );
87     is( $i->is_error(), -1, 'is_error == -1 for no valid OAI response');
103     my $h = new_ok('Net::OAI::Harvester' => [ baseURL => $repo ]);
105     isa_ok( $l, 'Net::OAI::ListRecords' );
111         is($l->is_error(), 1, 'is_error == 1 for OAI error response');
112 …      like($l->responseDate(), qr/^\d{4}-\d\d-\d\dT\d\d:\d\d:\d\dZ$/, 'OAI responseDate element' );
113         is($l->errorCode(), 'badArgument', 'parsed OAI error code from server');
121     my $h = new_ok('Net::OAI::Harvester' => [ baseURL => $repo ]);
123     isa_ok( $r, 'Net::OAI::ListRecords' );
129         is($r->is_error(), 1, 'is_error == 1 for OAI error response');
130 … like($r->responseDate(), qr/^\d{4}-\d{2}-\d{2}T\d{2}:\d{2}:\d{2}Z$/, 'OAI responseDate element' );
131         is($r->errorCode(), 'cannotDisseminateFormat', 'parsed OAI error code from server');