Lines 82-91
my $get_response = sub {
Link Here
|
82 |
$response = XMLin($stdout); |
82 |
$response = XMLin($stdout); |
83 |
}; |
83 |
}; |
84 |
$get_response->(); |
84 |
$get_response->(); |
85 |
my $now = DateTime->now . 'Z'; |
|
|
86 |
my $expected = { |
85 |
my $expected = { |
87 |
request => 'http://localhost', |
86 |
request => 'http://localhost', |
88 |
responseDate => $now, |
|
|
89 |
xmlns => 'http://www.openarchives.org/OAI/2.0/', |
87 |
xmlns => 'http://www.openarchives.org/OAI/2.0/', |
90 |
'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance', |
88 |
'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance', |
91 |
'xsi:schemaLocation' => 'http://www.openarchives.org/OAI/2.0/ http://www.openarchives.org/OAI/2.0/OAI-PMH.xsd', |
89 |
'xsi:schemaLocation' => 'http://www.openarchives.org/OAI/2.0/ http://www.openarchives.org/OAI/2.0/OAI-PMH.xsd', |
Lines 104-117
my $expected = {
Link Here
|
104 |
], |
102 |
], |
105 |
}, |
103 |
}, |
106 |
}; |
104 |
}; |
|
|
105 |
delete $response->{responseDate}; |
107 |
is_deeply($response, $expected, "ListMetadataFormats"); |
106 |
is_deeply($response, $expected, "ListMetadataFormats"); |
108 |
|
107 |
|
109 |
%param = ( verb => 'ListIdentifiers' ); |
108 |
%param = ( verb => 'ListIdentifiers' ); |
110 |
$get_response->(); |
109 |
$get_response->(); |
111 |
$now = DateTime->now . 'Z'; |
|
|
112 |
$expected = { |
110 |
$expected = { |
113 |
request => 'http://localhost', |
111 |
request => 'http://localhost', |
114 |
responseDate => $now, |
|
|
115 |
xmlns => 'http://www.openarchives.org/OAI/2.0/', |
112 |
xmlns => 'http://www.openarchives.org/OAI/2.0/', |
116 |
'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance', |
113 |
'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance', |
117 |
'xsi:schemaLocation' => 'http://www.openarchives.org/OAI/2.0/ http://www.openarchives.org/OAI/2.0/OAI-PMH.xsd', |
114 |
'xsi:schemaLocation' => 'http://www.openarchives.org/OAI/2.0/ http://www.openarchives.org/OAI/2.0/OAI-PMH.xsd', |
Lines 120-125
$expected = {
Link Here
|
120 |
content => "Required argument 'metadataPrefix' was undefined", |
117 |
content => "Required argument 'metadataPrefix' was undefined", |
121 |
}, |
118 |
}, |
122 |
}; |
119 |
}; |
|
|
120 |
delete $response->{responseDate}; |
123 |
is_deeply($response, $expected, "ListIdentifiers without metadaPrefix argument"); |
121 |
is_deeply($response, $expected, "ListIdentifiers without metadaPrefix argument"); |
124 |
|
122 |
|
125 |
$dbh->rollback; |
123 |
$dbh->rollback; |
126 |
- |
|
|