view release on metacpan or  search on metacpan

t/lib/script/testapp_test.pl  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/env perl
 
use strict;
use warnings;
 
use FindBin;
use lib "$FindBin::Bin/..";
use Catalyst::Test 'TestApp';
 
print request($ARGV[0])->content . "\n";
 
1;

t/live-test.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/env perl
 
use strict;
use warnings;
use Test::More;
 
# setup library path
use FindBin qw($Bin);
use lib "$Bin/lib";
 
use Catalyst::Test 'TestApp';
 
{
    local *TestApp::debug = sub { 0 };
    my $res = request('/');
    ok $res->is_success;
    like $res->content, qr/dump_info=1/;
    ok request($res->content)->is_success;
}