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=1d285816f88ccd8b81e733565ca4363140b75ec8;hpb=9af4ee013b23e7241d4664ea39952fa3b20f4b7f 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' );