X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Fmeta_method_unneeded.t;h=6820f3fb616419942ca65bbba51de2f18cb433fb;hp=f083fcef81ee1b21c180fc4ef2a998828e7ac898;hb=2664a81bf9d84eff55bbc3cd33916297bacdbde4;hpb=ecd79a0112fccbcec1c7e8d82a8f8bcb605e9b37 diff --git a/t/meta_method_unneeded.t b/t/meta_method_unneeded.t index f083fce..6820f3f 100644 --- a/t/meta_method_unneeded.t +++ b/t/meta_method_unneeded.t @@ -1,12 +1,13 @@ use strict; use warnings; -use Test::More tests => 1; +use FindBin qw/$Bin/; +use lib "$Bin/lib"; +use Test::More tests => 2; use Test::Exception; use Carp (); -$SIG{__DIE__} = \&Carp::confess; # Stacktrace please. # Doing various silly things, like for example -# use CGI qw/:stanard/ in your conrtoller / app +# use CGI qw/:standard/ in your conrtoller / app # will overwrite your meta method, therefore Catalyst # can't depend on it being there correctly. @@ -19,5 +20,11 @@ $SIG{__DIE__} = \&Carp::confess; # Stacktrace please. no warnings 'redefine'; sub meta {} } +BEGIN { + lives_ok { TestAppWithMeta->setup } 'Can setup an app which defines its own meta method'; +} + +use Catalyst::Test 'TestAppWithMeta'; + +ok( request('/')->is_success ); -lives_ok { TestAppWithMeta->setup } 'Can setup an app which defines its own meta method';