mojomojo / t / 04context.t
100644 17 lines (14 sloc) 0.347 kb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
#use FindBin;
use Data::Dumper;
use Test::More tests => 3;
 
BEGIN {
    $ENV{CATALYST_CONFIG} = 't/var/mojomojo.yml';
    use_ok( 'Catalyst::Test', 'MojoMojo' );
}
 
my ($response, $c) = ctx_request('/');
isa_ok( $c, 'MojoMojo');
ok( request('/')->is_success, 'Request should succeed' );