Cleanup failing tests

[gitmo/Mouse.git] / Moose-t-failing / 050_metaclasses / 018_throw_error.t

diff --git a/t/050_metaclasses/failing/018_throw_error.t b/Moose-t-failing/050_metaclasses/018_throw_error.t
similarity index 70%
rename from t/050_metaclasses/failing/018_throw_error.t
rename to Moose-t-failing/050_metaclasses/018_throw_error.t
index 1be8cb5..837c6dd 100644 (file)
--- a/t/050_metaclasses/failing/018_throw_error.t
+++ b/Moose-t-failing/050_metaclasses/018_throw_error.t
@@ -1,9 +1,13 @@
 #!/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;
 
-use Test::More tests => 24;
+use Test::More;
+$TODO = q{Mouse is not yet completed};
 use Test::Exception;
 
 {
@@ -22,17 +26,20 @@ use Test::Exception;
 
     has foo => ( is => "ro" );
 
-    package Baz::Error;
-    use Mouse;
-
-    has message    => ( isa => "Str",                    is => "ro" );
-    has attr       => ( isa => "Mouse::Meta::Attribute", is => "ro" );
-    has method     => ( isa => "Mouse::Meta::Method",    is => "ro" );
-    has metaclass  => ( isa => "Mouse::Meta::Class",     is => "ro" );
-    has data       => ( is  => "ro" );
-    has line       => ( isa => "Int",                    is => "ro" );
-    has file       => ( isa => "Str",                    is => "ro" );
-    has last_error => ( isa => "Any",                    is => "ro" );
+    BEGIN {
+        package Baz::Error;
+        use Mouse;
+        extends 'Mouse::Object', 'Mouse::Error::Default';
+
+        has message    => ( isa => "Str",                    is => "ro" );
+        has attr       => ( isa => "Mouse::Meta::Attribute", is => "ro" );
+        has method     => ( isa => "Mouse::Meta::Method",    is => "ro" );
+        has metaclass  => ( isa => "Mouse::Meta::Class",     is => "ro" );
+        has data       => ( is  => "ro" );
+        has line       => ( isa => "Int",                    is => "ro" );
+        has file       => ( isa => "Str",                    is => "ro" );
+        has last_error => ( isa => "Any",                    is => "ro" );
+    }
 
     package Baz;
     use metaclass (
@@ -102,9 +109,9 @@ sub create_error {
     use Mouse;
     extends 'Baz';
 
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class       => __PACKAGE__,
-        metaclass_roles => ['Role::Foo'],
+    Mouse::Util::MetaRole::apply_metaroles(
+        for             => __PACKAGE__,
+        class_metaroles => { class => ['Role::Foo'] },
     );
 }
 
@@ -129,9 +136,9 @@ sub create_error {
 
     use Mouse;
 
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class         => __PACKAGE__,
-        metaclass_roles => ['Role::Foo'],
+    Mouse::Util::MetaRole::apply_metaroles(
+        for             => __PACKAGE__,
+        class_metaroles => { class => ['Role::Foo'] },
     );
 }
 
@@ -144,9 +151,9 @@ ok( Foo::Sub->meta->error_class->isa('Mouse::Error::Croak'),
 
     ::lives_ok { extends 'Foo::Sub' } 'error_class differs by role so incompat is handled';
 
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class         => __PACKAGE__,
-        error_class_roles => ['Role::Foo'],
+    Mouse::Util::MetaRole::apply_metaroles(
+        for             => __PACKAGE__,
+        class_metaroles => { error => ['Role::Foo'] },
     );
 }
 
@@ -154,3 +161,5 @@ ok( Foo::Sub::Sub->meta->error_class->meta->does_role('Role::Foo'),
     q{Foo::Sub::Sub's error_class does Role::Foo} );
 ok( Foo::Sub::Sub->meta->error_class->isa('Mouse::Error::Croak'),
     q{Foo::Sub::Sub's error_class now subclasses Mouse::Error::Croak} );
+
+done_testing;