The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use v5.10.1;
use Test::More;
use Plack::App::DAIA::Test;

use lib 't';
use SampleDAIAApp;

my $app = SampleDAIAApp->new( errors => 1 );

# adds warnings
test_daia_psgi $app,
    'foo:bar' => sub {
        is(scalar $_->document, 1, 'returned a document');
    },
    'doz:bar' => sub {
        is(scalar $_->document, 0, 'returned no document');
    };

# does not add any warnings
test_daia $app,
    'foo:bar' => sub {
        is(scalar $_->document, 1, 'returned a document');
    },
    'doz:bar' => sub {
        is(scalar $_->document, 1, 'returned a document');
    };

$app = SampleDAIAApp->new( warnings => 0 );
test_daia_psgi $app,
    'doz:bar' => sub {
        is(scalar $_->document, 1, 'returned a document');
    };

done_testing;