X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Fdead_load_multiple_chained_attributes.t;h=43821410c1cd0d1cd962852eac7aea048ffafaa5;hp=7d1ad3441a16ee54e232067089becbcb53b41e57;hb=82010ea176741c7a4f2baf3f6f27377b1d9f6b15;hpb=57d7305c41daa31f2e899a8602dfa914bdde2cc3 diff --git a/t/dead_load_multiple_chained_attributes.t b/t/dead_load_multiple_chained_attributes.t index 7d1ad34..4382141 100644 --- a/t/dead_load_multiple_chained_attributes.t +++ b/t/dead_load_multiple_chained_attributes.t @@ -1,5 +1,3 @@ -#!perl - use strict; use warnings; use lib 't/lib'; @@ -10,16 +8,16 @@ plan tests => 4; use Catalyst::Test 'TestApp'; -eval q{ +eval q{ package TestApp::Controller::Action::Chained; sub should_fail : Chained('/') Chained('foo') Args(0) {} }; ok(!$@); -eval { TestApp->setup_actions; }; +eval { TestApp->setup_actions; }; ok($@, 'Multiple chained attributes make action setup fail'); -eval q{ +eval q{ package TestApp::Controller::Action::Chained; no warnings 'redefine'; sub should_fail {}