X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Fclass_traits_CAR_bug.t;h=2e9743be90efa27362c52105314fe6baaf970d50;hp=cc57bc1ddc8843a790aaf51a565180fc04bfcbbf;hb=8e322ed0b39da75b8d888025782f496ca781527f;hpb=10542b5178b2fa036e0658111523ea68a7a04437 diff --git a/t/class_traits_CAR_bug.t b/t/class_traits_CAR_bug.t index cc57bc1..2e9743b 100644 --- a/t/class_traits_CAR_bug.t +++ b/t/class_traits_CAR_bug.t @@ -49,18 +49,29 @@ BEGIN { } - + +BEGIN { + package TestApp::Controller::Root; + $INC{'TestApp/Controller/Root.pm'} = __FILE__; + + use Moose; + + BEGIN { extends 'Catalyst::Controller' }; + + sub root :Path('/') {} +} + { package TestApp; $INC{'TestApp.pm'} = __FILE__; - + use Catalyst; __PACKAGE__->request_class_traits([qw/TestRole Foo Bar/]); __PACKAGE__->setup; } - - + + foreach my $class_prefix (qw/request/) { my $method = 'composed_' .$class_prefix. '_class'; ok(