Merge branch 'stable'

[gitmo/Class-MOP.git] / t / 302_modify_parent_method.t

diff --git a/t/302_modify_parent_method.t b/t/302_modify_parent_method.t
index 68f3e38..2373453 100644 (file)
--- a/t/302_modify_parent_method.t
+++ b/t/302_modify_parent_method.t
@@ -1,14 +1,10 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
-use Test::More tests => 20;
-use Test::Exception;
+use Test::More;
+use Test::Fatal;
 
-BEGIN {
-    use_ok('Class::MOP');
-}
+use Class::MOP;
 
 my @calls;
 
@@ -23,62 +19,83 @@ my @calls;
 
     sub method { push @calls, 'Parent::method' }
 
-       package Child;
+    package Child;
 
-       use strict;
-       use warnings;
+    use strict;
+    use warnings;
     use metaclass;
 
-       use base 'Parent';
+    use base 'Parent';
 
-       Child->meta->add_around_method_modifier('method' => sub {
-        my $orig = shift;
-        push @calls, 'before Child::method';
-        $orig->(@_);
-        push @calls, 'after Child::method';
-       });
+    Child->meta->add_around_method_modifier(
+        'method' => sub {
+            my $orig = shift;
+            push @calls, 'before Child::method';
+            $orig->(@_);
+            push @calls, 'after Child::method';
+        }
+    );
 }
 
 Parent->method;
 
-is_deeply([splice @calls], [
-    'Parent::method',
-]);
+is_deeply(
+    [ splice @calls ],
+    [
+        'Parent::method',
+    ]
+);
 
 Child->method;
 
-is_deeply([splice @calls], [
-    'before Child::method',
-    'Parent::method',
-    'after Child::method',
-]);
+is_deeply(
+    [ splice @calls ],
+    [
+        'before Child::method',
+        'Parent::method',
+        'after Child::method',
+    ]
+);
 
 {
     package Parent;
 
-       Parent->meta->add_around_method_modifier('method' => sub {
-        my $orig = shift;
-        push @calls, 'before Parent::method';
-        $orig->(@_);
-        push @calls, 'after Parent::method';
-       });
+    Parent->meta->add_around_method_modifier(
+        'method' => sub {
+            my $orig = shift;
+            push @calls, 'before Parent::method';
+            $orig->(@_);
+            push @calls, 'after Parent::method';
+        }
+    );
 }
 
 Parent->method;
 
-is_deeply([splice @calls], [
-    'before Parent::method',
-    'Parent::method',
-    'after Parent::method',
-]);
+is_deeply(
+    [ splice @calls ],
+    [
+        'before Parent::method',
+        'Parent::method',
+        'after Parent::method',
+    ]
+);
 
 Child->method;
 
-is_deeply([splice @calls], [
-    'before Child::method',
-    'before Parent::method',
-    'Parent::method',
-    'after Parent::method',
-    'after Child::method',
-]);
+TODO: {
+    local $TODO = "pending fix";
+    is_deeply(
+        [ splice @calls ],
+        [
+            'before Child::method',
+            'before Parent::method',
+            'Parent::method',
+            'after Parent::method',
+            'after Child::method',
+        ],
+        "cache is correctly invalidated when the parent method is wrapped"
+    );
+}
 
+done_testing;