1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
use Test::More tests => 6;
use strict;
use warnings;
use_ok( 'HTTP::OAI' );
my $expected = <<EOF;
<?xml version="1.0" encoding="UTF-8"?>
<OAI-PMH xmlns="http://www.openarchives.org/OAI/2.0/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.openarchives.org/OAI/2.0/ http://www.openarchives.org/OAI/2.0/OAI-PMH.xsd"><responseDate>0000-00-00T00:00:00Z</responseDate><request>http://localhost/path/script</request><error code="badVerb">You didn't supply a verb argument</error></OAI-PMH>
EOF
my $r = HTTP::OAI::Response->new(
requestURL=>'http://localhost/path/script?',
responseDate=>'0000-00-00T00:00:00Z',
);
$r->errors(HTTP::OAI::Error->new(code=>'badVerb',message=>'You didn\'t supply a verb argument'));
is($r->toDOM->toString, $expected, 'badVerb');
$r = HTTP::OAI::Response->new;
$r->parse_string("<?xml version='1.0' encoding='UTF-8'?>\n<root/>");
ok($r->is_error, 'Junk XML is_error');
is($r->code, 600, 'Chunk xml');
$r = HTTP::OAI::Response->new;
$r->parse_string($expected);
ok($r->is_error, 'Parse_string');
my $err_noid = <<EOF;
<?xml version="1.0" encoding="UTF-8"?>
<OAI-PMH xmlns="http://www.openarchives.org/OAI/2.0/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.openarchives.org/OAI/2.0/ http://www.openarchives.org/OAI/2.0/OAI-PMH.xsd"><responseDate>0000-00-00T00:00:00Z</responseDate><request>http://localhost/path/script?</request><error code="idDoesNotExist">Requested identifier does not exist</error></OAI-PMH>
EOF
$r = HTTP::OAI::Response->new;
$r->parse_string($err_noid);
ok($r->is_error);
|
