t/class_traits_CAR_bug.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4 use Class::MOP;
   5
   6 BEGIN {
   7   use Test::More;
   8   eval "use Catalyst::Action::REST; 1" || do {
   9     plan skip_all => "Trouble loading Catalyst::Action::REST => $@";
  10   };
  11 }
  12
  13 BEGIN {
  14   my %hidden = map { (my $m = "$_.pm") =~ s{::}{/}g; $m => 1 } qw(
  15     Foo
  16     Bar
  17   );
  18   unshift @INC, sub {
  19     return unless exists $hidden{$_[1]};
  20     die "Can't locate $_[1] in \@INC (hidden)\n";
  21   };
  22 }
  23
  24 BEGIN {
  25   package TestRole;
  26   $INC{'TestRole'} = __FILE__;
  27   use Moose::Role;
  28
  29   sub a { 'a' }
  30   sub b { 'b' }
  31
  32   package Catalyst::TraitFor::Request::Foo;
  33   $INC{'Catalyst/TraitFor/Request/Foo.pm'} = __FILE__;
  34   use Moose::Role;
  35
  36   sub c { 'c' }
  37
  38   package TestApp::TraitFor::Request::Bar;
  39   $INC{'TestApp/TraitFor/Request/Bar.pm'} = __FILE__;
  40   use Moose::Role;
  41
  42   sub d { 'd' }
  43
  44   package TestApp::Controller::Root;
  45   $INC{'TestApp/Controller/Root.pm'} = __FILE__;
  46
  47   use Moose;
  48   use MooseX::MethodAttributes;
  49
  50
  51 }
  52
  53 {
  54   package TestApp;
  55   $INC{'TestApp.pm'} = __FILE__;
  56
  57   use Catalyst;
  58
  59   __PACKAGE__->request_class_traits([qw/TestRole Foo Bar/]);
  60   __PACKAGE__->setup;
  61 }
  62
  63
  64 foreach my $class_prefix (qw/request/) {
  65   my $method = 'composed_' .$class_prefix. '_class';
  66   ok(
  67     Class::MOP::class_of(TestApp->$method)->does_role('TestRole'),
  68     "$method does TestRole",
  69   );
  70 }
  71
  72 use Catalyst::Test 'TestApp';
  73
  74 my ($res, $c) = ctx_request '/';
  75
  76 is $c->req->a, 'a';
  77 is $c->req->b, 'b';
  78 is $c->req->c, 'c';
  79 is $c->req->d, 'd';
  80
  81 done_testing;