Moose role class has ->meta in method_list since 0.90, update for that

[gitmo/Mouse.git] / t / 029-new.t

diff --git a/t/029-new.t b/t/029-new.t
index 9ad1721..4e642eb 100644 (file)
--- a/t/029-new.t
+++ b/t/029-new.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 4;
+use Test::More tests => 7;
 use Test::Exception;
 
 do {
@@ -28,3 +28,16 @@ throws_ok {
     Class->new('non-hashref scalar');
 } qr/Single parameters to new\(\) must be a HASH ref/;
 
+throws_ok {
+    Class->new(undef);
+} qr/Single parameters to new\(\) must be a HASH ref/;
+
+Class->meta->make_immutable;
+
+throws_ok {
+    Class->new('non-hashref scalar');
+} qr/Single parameters to new\(\) must be a HASH ref/;
+
+throws_ok {
+    Class->new(undef);
+} qr/Single parameters to new\(\) must be a HASH ref/;