root/lang/perl/HTTP-Engine/trunk/t/010_core/request_processor-catch_error.t @ 17318

use strict;
use warnings;
use Test::More tests => 2;
use t::Utils;
use HTTP::Engine;
use HTTP::Request;
use IO::Scalar;

tie *STDERR, 'IO::Scalar';

my $res = eval {
    run_engine(
        HTTP::Request->new( GET => 'http://localhost/'),
        sub {
            die "orz";
        },
    );
};
ok !$@;
is $res->code, 500;

untie *STDERR;