Hash accessor should accept more than 2 arguments

[gitmo/Moose.git] / t / 020_attributes / 028_no_slot_access.t

diff --git a/t/020_attributes/028_no_slot_access.t b/t/020_attributes/028_no_slot_access.t
index cb6efa3..8819db3 100644 (file)
--- a/t/020_attributes/028_no_slot_access.t
+++ b/t/020_attributes/028_no_slot_access.t
@@ -60,31 +60,30 @@ use warnings;
     use Moose;
     use Moose::Util::MetaRole;
 
-    use Test::More tests => 3;
-    use Test::Exception;
+    use Test::More;
+    use Test::Fatal;
 
-    Moose::Util::MetaRole::apply_metaclass_roles(
-        for_class                => __PACKAGE__,
-        instance_metaclass_roles => ['MooseX::SomeAwesomeDBFields']
+    Moose::Util::MetaRole::apply_metaroles(
+        for             => __PACKAGE__,
+        class_metaroles => { instance => ['MooseX::SomeAwesomeDBFields'] },
     );
 
-    lives_ok {
+    is( exception {
         has lazy_attr => (
             is      => 'ro',
             isa     => 'Bool',
             lazy    => 1,
             default => sub {0},
         );
-    }
-    "Adding lazy accessor does not use inline_slot_access";
+    }, undef, "Adding lazy accessor does not use inline_slot_access" );
 
-    lives_ok {
+    is( exception {
         has rw_attr => (
             is => 'rw',
         );
-    }
-    "Adding read-write accessor does not use inline_slot_access";
+    }, undef, "Adding read-write accessor does not use inline_slot_access" );
+
+    is( exception { __PACKAGE__->meta->make_immutable; }, undef, "Inling constructor does not use inline_slot_access" );
 
-    lives_ok { __PACKAGE__->meta->make_immutable; }
-    "Inling constructor does not use inline_slot_access";
+    done_testing;
 }