X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fdeprecated_appclass_action_warnings.t;h=d809349fb2060c9834619c7a228edd90e0fe31b9;hb=fddc99a9ce7d8f62992e8ed64a15b11d50a80dab;hp=f25d8d5127757bc18e90faa2d041e6c04e4a8abd;hpb=dbf6a6fcd7a51226a353e2a800a1cf5c7e8e9c66;p=catagits%2FCatalyst-Runtime.git diff --git a/t/deprecated_appclass_action_warnings.t b/t/deprecated_appclass_action_warnings.t index f25d8d5..d809349 100644 --- a/t/deprecated_appclass_action_warnings.t +++ b/t/deprecated_appclass_action_warnings.t @@ -5,14 +5,9 @@ use FindBin; use lib "$FindBin::Bin/lib"; use Test::More; -use Catalyst::Test 'DeprecatedActionsInAppClassTestApp'; -plan tests => 3; +eval 'use DeprecatedActionsInAppClassTestApp'; +ok( $@, 'application dies if it has actions'); +like( $@, qr/cannot be controllers anymore/, 'for the correct reason' ); -my $warnings; -my $logger = DeprecatedActionsInAppClassTestApp::Log->new; -Catalyst->log($logger); - -ok( my $response = request('http://localhost/foo'), 'Request' ); -ok( $response->is_success, 'Response Successful 2xx' ); -is( $DeprecatedActionsInAppClassTestApp::Log::warnings, 1, 'Get the appclass action warning' ); \ No newline at end of file +done_testing;