• Files
• Commits
• Log
• Graph
• Stats

use LogReportTest;
use Data::Dumper;
use Data::Printer;
use Model;

sub debug {
    my $response = shift;  p $response->text;
    print_output($response);
}

my $psgi_app = LogReport::runner()->psgi_app;
LWP::Protocol::PSGI->register($psgi_app);
my $mech = Test::WWW::Mechanize->new;

my @types = (
    qw/notice mistake warning error alert fault failure success panic/
); # assert & info don't appear in tt

for my $type (@types) {
    next if $type eq 'panic'; # causes stack-trace in console
    my $msg = Model->messages($type);
    $mech->get('http://localhost/'.$type);                      #  debug($mech);
    $mech->text_contains($msg);
}

SKIP: { # panic - get stack trace even on test - can't set 'accept' in .yml above PANIC
    skip('console stack trace',0);
    $mech->get('http://localhost/panic');                        # debug($mech);
    $mech->text_contains(
        'An unexpected error has occurred',
        'Text contains: An unexpected error has occurred [panic; redirected]'
    );
}
{ # update without request param description:
    $mech->get('http://localhost/update?title=foo');             # debug($mech);
    $mech->text_contains('no description entered');
    $mech->text_contains('Success: update OK');
    $mech->text_contains('about to render template ....');
}

done_testing();