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=c45e66e69377aa2a8e791ea0ab69f1d3ac0da5b9;hb=88e5a8b0c4d28e46b8ba6b6b9567063e57af9063;hpb=9868e0a0023cc8b598d60f150ea367e0056a65f3 diff --git a/t/optional_threads.t b/t/optional_threads.t index c45e66e..b0a05c9 100644 --- a/t/optional_threads.t +++ b/t/optional_threads.t @@ -26,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; } @@ -46,7 +46,7 @@ sub request { ]; 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' );