testing diagnostics
This commit is contained in:
1 parent
380cea8aa2
commit
1708622c49
2 files changed
+7
-3
No files matched your search
@@ -21,11 +21,14 @@ $t->get_ok('/')
|
||||
->status_is(500)
|
||||
->content_like(qr{foo});
|
||||
|
||||
$t->app->log->on(message => sub {
|
||||
my($log, $level, @lines) = @_;
|
||||
diag @lines if $level eq 'error';
|
||||
});
|
||||
|
||||
$t->get_ok('/bar')
|
||||
->status_is(200)
|
||||
->content_like(qr{bar});
|
||||
|
||||
#note $t->tx->res->to_string;
|
||||
->content_like(qr{sometimes, the bar,});
|
||||
|
||||
__DATA__
|
||||
|
||||
|
||||
Reference in new issue
Block a user