X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flive_component_controller_action_regexp.t;h=be005bcaddffc2795e6bfc066e4747cd7091667a;hb=92f9d3ad4cba9d517c9819c136b4115e917dc46b;hp=4d4500e22ea13811a57be8e5ec8b42537161671a;hpb=048f45ee23401c9f2fbe241639f2687c1e79f990;p=catagits%2FCatalyst-Runtime.git diff --git a/t/live_component_controller_action_regexp.t b/t/live_component_controller_action_regexp.t index 4d4500e..be005bc 100644 --- a/t/live_component_controller_action_regexp.t +++ b/t/live_component_controller_action_regexp.t @@ -10,7 +10,7 @@ our $iters; BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 1; } -use Test::More tests => 28*$iters; +use Test::More tests => 33*$iters; use Catalyst::Test 'TestApp'; use Catalyst::Request; @@ -103,4 +103,19 @@ sub run_tests { is( $req->captures->[ 0 ], 'mandatory', 'mandatory capture' ); is( $req->captures->[ 1 ], '/optional', 'optional capture' ); } + + # test localregex in the root controller + { + ok( my $response = request('http://localhost/localregex'), + 'Request' ); + ok( $response->is_success, 'Response Successful 2xx' ); + is( $response->content_type, 'text/plain', 'Response Content-Type' ); + is( $response->header('X-Catalyst-Action'), + '^localregex$', 'Test Action' ); + is( + $response->header('X-Test-Class'), + 'TestApp::Controller::Root', + 'Test Class' + ); + } }