X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F020_attributes%2Ffailing%2F028_no_slot_access.t;fp=t-failing%2F020_attributes%2F028_no_slot_access.t;h=12ff7b05004bb2d5ca51130d0d0902149f084026;hp=668f71b0b0eb0ea946645cb3caab0efefa9adf94;hb=9864f0e4ba233c5f30ad6dc7c484ced43d883d27;hpb=8845df4dd6432e3164d078ade741409061adae9f

diff --git a/t-failing/020_attributes/028_no_slot_access.t b/t/020_attributes/failing/028_no_slot_access.t
similarity index 78%
rename from t-failing/020_attributes/028_no_slot_access.t
rename to t/020_attributes/failing/028_no_slot_access.t
index 668f71b..12ff7b0 100644
--- a/t-failing/020_attributes/028_no_slot_access.t
+++ b/t/020_attributes/failing/028_no_slot_access.t
@@ -1,7 +1,4 @@
 #!/usr/bin/perl
-# This is automatically generated by author/import-moose-test.pl.
-# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
-use t::lib::MooseCompat;
 
 use strict;
 use warnings;
@@ -15,7 +12,7 @@ use warnings;
 }
 
 {
-    package MooseX::SomeAwesomeDBFields;
+    package MouseX::SomeAwesomeDBFields;
 
     # implementation of methods not called in the example deliberately
     # omitted
@@ -63,13 +60,12 @@ use warnings;
     use Mouse;
     use Mouse::Util::MetaRole;
 
-    use Test::More;
-$TODO = q{Mouse is not yet completed};
+    use Test::More tests => 3;
     use Test::Exception;
 
-    Mouse::Util::MetaRole::apply_metaroles(
-        for             => __PACKAGE__,
-        class_metaroles => { instance => ['MooseX::SomeAwesomeDBFields'] },
+    Mouse::Util::MetaRole::apply_metaclass_roles(
+        for_class                => __PACKAGE__,
+        instance_metaclass_roles => ['MouseX::SomeAwesomeDBFields']
     );
 
     lives_ok {
@@ -91,6 +87,4 @@ $TODO = q{Mouse is not yet completed};
 
     lives_ok { __PACKAGE__->meta->make_immutable; }
     "Inling constructor does not use inline_slot_access";
-
-    done_testing;
 }