Revert autogenerated tests. Tests should not changed radically.

[gitmo/Mouse.git] / t / 030_roles / 010_run_time_role_composition.t

diff --git a/t/030_roles/010_run_time_role_composition.t b/t/030_roles/010_run_time_role_composition.t
index 9a3a5d7..c4ba5ce 100644 (file)
--- a/t/030_roles/010_run_time_role_composition.t
+++ b/t/030_roles/010_run_time_role_composition.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 Scalar::Util qw(blessed);
 
@@ -65,12 +61,12 @@ isa_ok($obj2, 'My::Class');
 }
 
 {
-    ok(!$obj2->does('Sleeper'), '... we do not do any roles yet');
+    ok(!$obj2->does('Bark'), '... we do not do any roles yet');
 
-    Sleeper->meta->apply($obj2);
+    Bark->meta->apply($obj2);
 
-    ok($obj2->does('Sleeper'), '... we now do the Sleeper role');
-    isnt(blessed($obj), blessed($obj2), '... they DO NOT share the same anon-class/role thing');
+    ok($obj2->does('Bark'), '... we now do the Bark role');
+    is(blessed($obj), blessed($obj2), '... they share the same anon-class/role thing');
 }
 
 {
@@ -85,7 +81,7 @@ isa_ok($obj2, 'My::Class');
 
     ok(!My::Class->does('Sleeper'), '... the class does not do the Sleeper role');
 
-    isnt(blessed($obj), blessed($obj2), '... they still don\'t share the same anon-class/role thing');
+    isnt(blessed($obj), blessed($obj2), '... they no longer share the same anon-class/role thing');
 
     isa_ok($obj, 'My::Class');
 
@@ -96,22 +92,12 @@ isa_ok($obj2, 'My::Class');
 }
 
 {
-    ok(!$obj2->does('Bark'), '... we do not do Bark yet');
-
-    Bark->meta->apply($obj2);
+    ok(!$obj2->does('Sleeper'), '... we do not do any roles yet');
 
-    ok($obj2->does('Bark'), '... we now do the Bark role');
-    isnt(blessed($obj), blessed($obj2), '... they still don\'t share the same anon-class/role thing');
-}
+    Sleeper->meta->apply($obj2);
 
-# test that anon classes are equivalent after role composition in the same order
-{
-    foreach ($obj, $obj2) {
-        $_ = My::Class->new;
-        Bark->meta->apply($_);
-        Sleeper->meta->apply($_);
-    }
-    is(blessed($obj), blessed($obj2), '... they now share the same anon-class/role thing');
+    ok($obj2->does('Sleeper'), '... we now do the Bark role');
+    is(blessed($obj), blessed($obj2), '... they share the same anon-class/role thing again');
 }
 
 done_testing;