view release on metacpan or  search on metacpan

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

#!/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

#!/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;
}