Revert autogenerated tests. Tests should not changed radically.

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

diff --git a/t-failing/050_metaclasses/018_throw_error.t b/t/050_metaclasses/failing/018_throw_error.t
similarity index 70%
rename from t-failing/050_metaclasses/018_throw_error.t
rename to t/050_metaclasses/failing/018_throw_error.t
index 837c6dd..1be8cb5 100644 (file)
--- a/t-failing/050_metaclasses/018_throw_error.t
+++ b/t/050_metaclasses/failing/018_throw_error.t
@@ -1,13 +1,9 @@
 #!/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;
-$TODO = q{Mouse is not yet completed};
+use Test::More tests => 24;
 use Test::Exception;
 
 {
@@ -26,20 +22,17 @@ use Test::Exception;
 
     has foo => ( 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::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" );
 
     package Baz;
     use metaclass (
@@ -109,9 +102,9 @@ sub create_error {
     use Mouse;
     extends 'Baz';
 
-    Mouse::Util::MetaRole::apply_metaroles(
-        for             => __PACKAGE__,
-        class_metaroles => { class => ['Role::Foo'] },
+    Mouse::Util::MetaRole::apply_metaclass_roles(
+        for_class       => __PACKAGE__,
+        metaclass_roles => ['Role::Foo'],
     );
 }
 
@@ -136,9 +129,9 @@ sub create_error {
 
     use Mouse;
 
-    Mouse::Util::MetaRole::apply_metaroles(
-        for             => __PACKAGE__,
-        class_metaroles => { class => ['Role::Foo'] },
+    Mouse::Util::MetaRole::apply_metaclass_roles(
+        for_class         => __PACKAGE__,
+        metaclass_roles => ['Role::Foo'],
     );
 }
 
@@ -151,9 +144,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_metaroles(
-        for             => __PACKAGE__,
-        class_metaroles => { error => ['Role::Foo'] },
+    Mouse::Util::MetaRole::apply_metaclass_roles(
+        for_class         => __PACKAGE__,
+        error_class_roles => ['Role::Foo'],
     );
 }
 
@@ -161,5 +154,3 @@ 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;