remove the outstanding queue from Sub::Quote; benchamarks show it didn't actually...

[gitmo/Role-Tiny.git] / t / method-generate-constructor.t

diff --git a/t/method-generate-constructor.t b/t/method-generate-constructor.t
index db10020..6299010 100644 (file)
--- a/t/method-generate-constructor.t
+++ b/t/method-generate-constructor.t
@@ -51,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;