X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Foptional_threads.t;h=b0a05c9becf7cefaeebc06aedde7257ba8c7a4e4;hp=baa40894dbed44bb1bb49e14157c62e6bf2b6eef;hb=804143deca6f2bebfc87cc78cf397201b6028bc5;hpb=4853fb50e3c7138bbe513fed2b22574a2d988ed1 diff --git a/t/optional_threads.t b/t/optional_threads.t index baa4089..b0a05c9 100644 --- a/t/optional_threads.t +++ b/t/optional_threads.t @@ -1,5 +1,3 @@ -#!perl - use strict; use warnings; @@ -28,12 +26,12 @@ else { plan skip_all => 'Needs a Perl with ithreads enabled'; } } - + no warnings 'redefine'; sub request { - my $thr = threads->new( + my $thr = threads->new( sub { Catalyst::Test::local_request('TestApp',@_) }, - @_ + @_ ); $thr->join; } @@ -44,11 +42,11 @@ sub request { TestApp::Controller::Action::Default->begin TestApp::Controller::Action::Default->default TestApp::View::Dump::Request->process - TestApp->end + TestApp::Controller::Root->end ]; my $expected = join( ", ", @expected ); - + ok( my $response = request('http://localhost/action/default'), 'Request' ); ok( $response->is_success, 'Response Successful 2xx' ); is( $response->header('X-Catalyst-Executed'), $expected, 'Executed actions' );