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=4c58d0cdf79a5623ab0ed6a01cdcc4c7ba1e67e4;hp=cc57bc1ddc8843a790aaf51a565180fc04bfcbbf;hb=HEAD;hpb=10542b5178b2fa036e0658111523ea68a7a04437 diff --git a/t/class_traits_CAR_bug.t b/t/class_traits_CAR_bug.t index cc57bc1..4c58d0c 100644 --- a/t/class_traits_CAR_bug.t +++ b/t/class_traits_CAR_bug.t @@ -4,13 +4,6 @@ use Test::More; use Class::MOP; BEGIN { - use Test::More; - eval "use Catalyst::Action::REST; 1" || do { - plan skip_all => "Trouble loading Catalyst::Action::REST => $@"; - }; -} - -BEGIN { my %hidden = map { (my $m = "$_.pm") =~ s{::}{/}g; $m => 1 } qw( Foo Bar @@ -49,18 +42,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(