t/020_controller_roles.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 use FindBin;
   6 use lib "$FindBin::Bin/lib";
   7
   8 use Test::More;
   9
  10 use aliased 'TestApp::TestRole';
  11
  12 ok +(my $meta = TestRole->meta), 'controller role has meta';
  13
  14 ok $meta->has_method('something_from_the_role'), 'method is available in role';
  15 ok $meta->has_method('action_from_ctrl_role'), 'action method is available in role';
  16
  17 done_testing;