bump version

[gitmo/Moo.git] / t / method-generate-constructor.t

diff --git a/t/method-generate-constructor.t b/t/method-generate-constructor.t
index 96d604c..6299010 100644 (file)
--- a/t/method-generate-constructor.t
+++ b/t/method-generate-constructor.t
@@ -3,8 +3,11 @@ use Test::More;
 use Test::Fatal;
 
 use Method::Generate::Constructor;
+use Method::Generate::Accessor;
 
-my $gen = Method::Generate::Constructor->new;
+my $gen = Method::Generate::Constructor->new(
+  accessor_generator => Method::Generate::Accessor->new
+);
 
 $gen->generate_method('Foo', 'new', {
   one => { },
@@ -48,4 +51,16 @@ is(
   'pass with both required args'
 );
 
+is(
+  exception { Bar->new({ one => 1, THREE => 3 }) },
+  undef,
+  'hashrefs also supported'
+);
+
+is(
+  exception { $first->new(one => 1, THREE => 3) },
+  undef,
+  'calling ->new on an object works'
+);
+
 done_testing;