use strict;
use warnings;
use Test::More qw( no_plan );
use SRU::Utils::XMLTest;

use_ok( 'SRU::Response::Diagnostic' );

my $d = SRU::Response::Diagnostic->new(
    uri     => 'info:srw/diagnostic/1/7',
    details => 'version',
    message => 'Version parameter missing. When you explicitly specify an explain, searchRetrieve, or scan operation you are suppose to send along a version parameter.' 
);

isa_ok( $d, 'SRU::Response::Diagnostic' );
is( $d->uri(), 'info:srw/diagnostic/1/7', 'uri()' );
is( $d->details(), 'version', 'details()' );
like( $d->message(), qr/Version parameter missing/, 'message()' );

ok( wellFormedXML( $d->asXML() ), 'asXML()' );