Not so much use_ok

[catagits/Catalyst-Devel.git] / share / t / comptest.tt

use strict;
use warnings;
use Test::More;
[% IF long_type == 'Controller' %][% IF mech %]

unless (eval q{use Test::WWW::Mechanize::Catalyst '[% name %]'; 1}) {
    plan skip_all => 'Test::WWW::Mechanize::Catalyst required';
    exit 0;
}

ok( my $mech = Test::WWW::Mechanize::Catalyst->new, 'Created mech object' );

$mech->get_ok( 'http://localhost[% uri %]' );
[%- ELSE %]

use Catalyst::Test '[% app %]';
use [% class %];

ok( request('[% uri %]')->is_success, 'Request should succeed' );
[%- END -%]
[% ELSE %]use Test::More;

BEGIN { use_ok '[% class %]' }
[% END -%]

done_testing();