local *TestApp::debug = sub { 0 };
-is $get->('foo'), 'Not found', 'detected action signature error';
-is $subget->('foo'), 'Not found', 'detected action signature error (child)';
-is $modget->('foo'), 'Not found', 'detected action signature error (modified)';
-
stderr_like {
like $get->('bar'), qr/come back later/i, 'normal handling of method validation error';
local *TestApp::debug = sub { 1 };
-stderr_like {
-
- my $foo_err = $get->('foo');
- like $foo_err, qr/BAD REQUEST: /, 'debug version of bad request error';
- like $foo_err, qr/Validation failed/i, 'debug version of bad request contains error message';
-
-} qr/BAD REQUEST:.+Validation failed/i, 'debug output with bad request note and error message';
-
-stderr_like {
-
- my $foo_err = $subget->('foo');
- like $foo_err, qr/BAD REQUEST: /, 'debug version of bad request error (child)';
- like $foo_err, qr/Validation failed/i, 'debug version of bad request contains error message (child)';
-
-} qr/BAD REQUEST:.+Validation failed/i, 'debug output with bad request note and error message (child)';
-
-stderr_like {
-
- my $foo_err = $modget->('foo');
- like $foo_err, qr/BAD REQUEST: /, 'debug version of bad request error (modified)';
- like $foo_err, qr/Validation failed/i, 'debug version of bad request contains error message (modified)';
-
-} qr/BAD REQUEST:.+Validation failed/i, 'debug output with bad request note and error message (modified)';
-
-stderr_like {
-
- my $bar_err = $get->('bar');
- unlike $bar_err, qr/BAD REQUEST: /, 'debug version of method error contains no bad request note';
- like $bar_err, qr/Validation failed/i, 'we got the right error message';
-
-} qr/Validation failed/i, 'error message reaches stdout';
-
-stderr_like {
-
- my $bar_err = $subget->('bar');
- unlike $bar_err, qr/BAD REQUEST: /, 'debug version of method error contains no bad request note (child)';
- like $bar_err, qr/Validation failed/i, 'we got the right error message (child)';
-
-} qr/Validation failed/i, 'error message reaches stdout (child)';
-
-stderr_like {
-
- my $bar_err = $modget->('bar');
- unlike $bar_err, qr/BAD REQUEST: /, 'debug version of method error contains no bad request note (modified)';
- like $bar_err, qr/Validation failed/i, 'we got the right error message (modified)';
-
-} qr/Validation failed/i, 'error message reaches stdout (modified)';
-
stderr_unlike {
is $get->('baz'), 'FOO BAR', 'make sure all works without any errors happening in debug mode';