t/05_dynamiccontrollers.t

   1 use strict;
   2 use warnings;
   3
   4 use FindBin qw/$Bin/;
   5 use lib "$Bin/lib";
   6
   7 use Moose::Util qw/does_role/;
   8
   9 use Test::More tests => 4;
  10
  11 use DynamicAppDemo;
  12
  13 # Naughty, should make an app instance.
  14 my $controller = DynamicAppDemo->controller('One');
  15
  16 ok $controller;
  17 isa_ok $controller, 'DynamicAppDemo::ControllerBase';
  18 ok does_role($controller, 'DynamicAppDemo::ControllerRole');
  19 ok ! $controller->action_for('get_reflected_action_methods'),
  20     'not leaking actions';
  21