t/catalyst-request-rest-custom-nonrest-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     superclasses => ['Catalyst::Request'],
  12 );
  13 $meta->add_method('__random_method' => sub { 42 });
  14
  15 $ENV{CAR_TEST_REQUEST_CLASS} = $meta->name;
  16
  17 use_ok $test;
  18 ok($test->request_class->does('Catalyst::TraitFor::Request::REST'),
  19   'Request class does Catalyst::TraitFor::Request::REST');
  20 isnt $test->request_class, $meta->name, 'Different request class';
  21 ok $test->request_class->can('__random_method'), 'Is right class';
  22 ok $test->request_class->can('data'), 'Also smells like REST subclass';
  23
  24 done_testing;