PSGI Error Test

test_psgi_error.t

# 500
test_psgi
    app => builder {
        enable "StackTrace", no_print_errors => 1; # no warning in make test.
        MyApp->handler
    },
    client => sub {
        my $cb = shift;
        my $req = HTTP::Request->new( GET => 'http://localhost/foo/error' );
        $req->header('Accept' => 'text/html'); # get stack trace message
        my $res = $cb->( $req );
        is $res->code, '500';
        like $res->content, qr|\Qdie "error"\E|;
    } ;