use strict;
use warnings;
use Test::More import => ['!pass'];
use Dancer;
use Dancer::Test;
use lib 't/lib';
use TestApp;
response_status_is [GET => '/oai'], 200, "response for GET /oai is 200";
response_status_is [POST => '/oai'], 200, "response for POST /oai is 200";
response_status_isnt [GET => '/oai'], 404, "response for GET /oai is not a 404";
response_content_like [GET => '/oai'], qr/illegal OAI verb/,
"got expected response content for GET /oai";
my $res;
$res = dancer_response("GET", '/oai', {params => {verb => "Identify" }});
like $res->{content}, qr/request verb="Identify"/, "Identify";
$res = dancer_response("GET", '/oai', {params =>
{verb => "ListMetadataFormats"}});
like $res->{content}, qr/request verb="ListMetadataFormats"/, "ListMetadataFormats";
$res = dancer_response("GET", '/oai', {params => {verb => "ListSets"}});
like $res->{content}, qr/setSpec>journal_article<\/setSpec/, "ListSets";
done_testing;