X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=share%2Ft%2Fcomptest.tt;h=ca044c9802c0cbe56dc8dde9d179973a57d2c4ae;hb=41cebeb1e1e47c8fbab0b112342baaeaea232061;hp=acfcd9711051fd6b80efb4f57739d7872b0889c8;hpb=6fce1f9f58ceb9632313d150f098dc50ad465c71;p=catagits%2FCatalyst-Devel.git diff --git a/share/t/comptest.tt b/share/t/comptest.tt index acfcd97..ca044c9 100644 --- a/share/t/comptest.tt +++ b/share/t/comptest.tt @@ -3,16 +3,17 @@ use warnings; [% IF long_type == 'Controller' %][% IF mech %]use Test::More; eval "use Test::WWW::Mechanize::Catalyst '[% name %]'"; -plan $@ - ? ( skip_all => 'Test::WWW::Mechanize::Catalyst required' ) - : ( tests => 2 ); +if ($@) { + 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 Test::More tests => 3; -BEGIN { use_ok 'Catalyst::Test', '[% name %]' } +BEGIN { use_ok 'Catalyst::Test', '[% app %]' } BEGIN { use_ok '[% class %]' } ok( request('[% uri %]')->is_success, 'Request should succeed' ); @@ -21,3 +22,6 @@ ok( request('[% uri %]')->is_success, 'Request should succeed' ); BEGIN { use_ok '[% class %]' } [% END %] + +done_testing(); +1;