And lets have a test that the reflector works in interface role mode

diff --git a/t/07_dynamiccontrollers_interface.t b/t/07_dynamiccontrollers_interface.t
new file mode 100644 (file)
index 0000000..8e7e60a
--- /dev/null
+++ b/t/07_dynamiccontrollers_interface.t
@@ -0,0 +1,19 @@
+use strict;
+use warnings;
+
+use FindBin qw/$Bin/;
+use lib "$Bin/lib";
+
+use Test::More tests => 3;
+
+BEGIN { use_ok('ModelsFromConfigInterfaceApp'); }
+
+my $controller = ModelsFromConfigInterfaceApp->controller('One');
+ok $controller, 'Generated a controller';
+
+my $action = $controller->action_for('say_hello');
+ok $action, 'Got action reflected from model';
+
+# Actions we generate are still totally frigging useless, so lets not test
+# that here yet.
+

diff --git a/t/lib/ModelsFromConfigInterfaceApp.pm b/t/lib/ModelsFromConfigInterfaceApp.pm
index 602a875..b6e898d 100644 (file)
--- a/t/lib/ModelsFromConfigInterfaceApp.pm
+++ b/t/lib/ModelsFromConfigInterfaceApp.pm
@@ -4,6 +4,7 @@ use namespace::autoclean;
 
 use Catalyst qw/
     +CatalystX::DynamicComponent::ModelsFromConfig::InterfaceRoles
+    +CatalystX::DynamicComponent::ModelToControllerReflector
 /;
 
 extends 'Catalyst';