Commit | Line | Data |
3fea05b9 |
1 | use strict; |
2 | use warnings; |
3 | [% IF long_type == 'Controller' %][% IF mech %]use Test::More; |
4 | |
5 | eval "use Test::WWW::Mechanize::Catalyst '[% name %]'"; |
6 | if ($@) { |
7 | plan skip_all => 'Test::WWW::Mechanize::Catalyst required'; |
8 | exit 0; |
9 | } |
10 | |
11 | ok( my $mech = Test::WWW::Mechanize::Catalyst->new, 'Created mech object' ); |
12 | |
13 | $mech->get_ok( 'http://localhost[% uri %]' ); |
14 | [%- ELSE %]use Test::More; |
15 | |
16 | BEGIN { use_ok 'Catalyst::Test', '[% app %]' } |
17 | BEGIN { use_ok '[% class %]' } |
18 | |
19 | ok( request('[% uri %]')->is_success, 'Request should succeed' ); |
20 | [%- END -%] |
21 | [% ELSE %]use Test::More; |
22 | |
23 | BEGIN { use_ok '[% class %]' } |
24 | [% END -%] |
25 | |
26 | done_testing(); |