use strict;
use warnings;
use Test::More;
use Plack::Test;
use HTTP::Request::Common;

use DAIA;
use Plack::App::DAIA;

my $app = Plack::App::DAIA->new(
    code => sub {
        my $id = shift;        
        my $daia = DAIA::Response->new;
        $daia->addDocument( id => $id );
        return $daia;
    }
);

test_psgi $app, sub {
        my $cb  = shift;
        my $res = $cb->(GET "/?id=my:abc");
        my $daia = eval { DAIA::parse_xml( $res->content ); };
        like( $res->content, qr{^<\?xml.*xmlns}s, 'XML header and namespace' );
        isa_ok( $daia, 'DAIA::Response' );
        ok( $daia->document, "has document" );
    };

done_testing;