t/050_controller_composition.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::Controller::Composed';
  11
  12 ok +(my $meta = Composed->meta), 'controller has meta';
  13
  14 ok $meta->find_method_by_name($_), "method $_ is available in composed controller"
  15     for qw(
  16             original_method
  17             original_action
  18             inherited_method
  19             inherited_action
  20             composed_method
  21             composed_action
  22         );
  23
  24 done_testing;