t/catalyst-request-rest-custom-rest-request-class.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4 use FindBin;
   5 use Moose ();
   6 use lib ( "$FindBin::Bin/lib" );
   7
   8 my $test = 'Test::Catalyst::Action::REST';
   9
  10 my $meta = Moose::Meta::Class->create_anon_class(
  11     # The test app has ForBrowsers actions, so we need that to not have
  12     # the request class replaced
  13     superclasses => ['Catalyst::Request::REST::ForBrowsers'],
  14 );
  15
  16 $ENV{CAR_TEST_REQUEST_CLASS} = $meta->name;
  17
  18 use_ok $test;
  19 ok($test->request_class->does('Catalyst::TraitFor::Request::REST'),
  20   'Request class does Catalyst::TraitFor::Request::REST');
  21 is $test->request_class, $meta->name, 'Request class kept';
  22 ok $test->request_class->can('data'), 'Also smells like REST subclass';
  23
  24 done_testing;