initial commit

1 files changed, 51 insertions, 0 deletions

diff --git a/t/03_check_implementation_class.t b/t/03_check_implementation_class.t
new file mode 100644
index 0000000..ccd1389
--- /dev/null
+++ b/t/03_check_implementation_class.t
@@ -0,0 +1,51 @@
+use Test::More tests => 2;
+use Test::Exception;
+
+BEGIN {
+	#----------------------------------------------------
+	# ImplementationA has a tweak() method
+    package My::Factory::ImplementationA;
+    use Moose;
+
+    has connection => (is => 'ro', isa => 'Str');
+
+    sub tweak { 1; }
+
+	#----------------------------------------------------
+	# ImplementationB doesn't have a tweak() method
+	
+    package My::Factory::ImplementationB;
+    use Moose;
+
+    sub no_tweak { 1; }
+
+	#----------------------------------------------------
+	# Factory class, has _roles() method that defines
+	# the role(s) (My::Role) all implementations should satisfy
+    package My::Factory;
+    use MooseX::AbstractFactory;
+
+    implementation_does qw/My::Role/;
+
+	#----------------------------------------------------
+	# My::Role requires tweak()
+    package My::Role;
+    use Moose::Role;
+    requires 'tweak';
+}
+
+my $imp;
+
+lives_ok {
+    $imp = My::Factory->create('ImplementationA',
+                               {connection => 'Type1'});
+}
+"Factory->new() doesn't die with ImplementationA";
+
+dies_ok {
+    $imp = My::Factory->create(
+                               'ImplementationB',
+                               {},
+                              );
+}
+"Factory->new() dies with implementationB";