From afb209cbcfae7b88d8fb23ed04c47e1aee187b2a Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Wed, 11 Aug 2010 09:59:29 +0200
Subject: initial commit

---
 t/05_override_validate_implementation.t | 47 +++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100644 t/05_override_validate_implementation.t

(limited to 't/05_override_validate_implementation.t')

diff --git a/t/05_override_validate_implementation.t b/t/05_override_validate_implementation.t
new file mode 100644
index 0000000..652f063
--- /dev/null
+++ b/t/05_override_validate_implementation.t
@@ -0,0 +1,47 @@
+use Test::More tests => 2;
+use Test::Exception;
+
+BEGIN {
+	#----------------------------------------------------
+    package My::Implementation;
+    use Moose;
+
+	#----------------------------------------------------
+	# Factory class, all implementations valid
+    package My::FactoryA;
+    use MooseX::AbstractFactory;
+
+	implementation_class_via sub { "My::Implementation" };
+
+	sub _validate_implementation_class {
+		return;
+	}
+
+	#----------------------------------------------------
+	# Factory class, all implementations invalid
+    package My::FactoryB;
+    use MooseX::AbstractFactory;
+
+	implementation_class_via sub { "My::Implementation" };
+
+	sub _validate_implementation_class {
+		confess "invalid implementation";
+	}
+
+}
+
+my $imp;
+
+lives_ok {
+    $imp = My::FactoryA->create('Implementation',
+                                {});
+}
+"FactoryA->new() doesn't die with Implementation";
+
+dies_ok {
+    $imp = My::FactoryB->create(
+                               'Implementation',
+                               {},
+                              );
+}
+"FactoryB->new() dies with implementation";
\ No newline at end of file
-- 
cgit v1.2.3