diff options
Diffstat (limited to '')
| -rw-r--r-- | t/05_override_validate_implementation.t | 47 |
1 files changed, 47 insertions, 0 deletions
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 |