view release on metacpan or  search on metacpan

t/classes.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
use strict;
use warnings FATAL => 'all';
use lib 't';
use Apache::Test;
use Apache::TestRequest;
use Apache::TestUtil qw(t_cmp);
 
plan tests => 10, need_lwp;
 
base: {
    my $res = GET '/dbh/';
    ok( t_cmp($res->content, qq[you might want to override "root_index"], "index request - DirBasedHandler" ));
    $res = GET '/dbh/haha/funny';