view release on metacpan or  search on metacpan

t/004_forward.t  view on Meta::CPAN

    sub just_return :Private {
        my ($self, $c) = @_;
        return;
    }
}

require Ark::Test;


sub run_tests() {
    {
        my $res = request( GET => '/root/one' );
        ok( $res->is_success, 'request ok');
        is( $res->content, 'one_two_tree_four_five_six_', 'forward ok');
    }

    {
        my $res = request( GET => '/root/seven' );
        ok( $res->is_success, 'request ok');
        is( $res->content, 'seven_eight_', 'forward ok');