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 => 2;
  10
  11 use DynamicAppDemo;
  12
  13 # Naughty, should make an app instance.
  14 my $controller = DynamicAppDemo->controller('One');
  15
  16 ok $controller;
  17 ok ! $controller->action_for('get_reflected_action_methods'),
  18     'not leaking actions';
  19