make inlining a bit more easily extensible

[gitmo/Class-MOP.git] / t / 082_get_code_info.t

diff --git a/t/082_get_code_info.t b/t/082_get_code_info.t
index a0026de..2770b76 100644 (file)
--- a/t/082_get_code_info.t
+++ b/t/082_get_code_info.t
@@ -1,24 +1,23 @@
 use strict;
 use warnings;
 
-use Test::More tests => 6;
+use Test::More;
 use Sub::Name 'subname';
 
 BEGIN {
-    $^P &= ~0x200; # Don't munger anonymous sub names
+    $^P &= ~0x200; # Don't munge anonymous sub names
 }
 
-BEGIN { use_ok("Class::MOP") }
+use Class::MOP;
 
 
-sub code_name_is ($$$;$) {
-    my ( $code, $stash, $name, $desc ) = @_;
-    $desc ||= "sub name is ${stash}::$name";
+sub code_name_is {
+    my ( $code, $stash, $name ) = @_;
 
     is_deeply(
         [ Class::MOP::get_code_info($code) ],
         [ $stash, $name ],
-        $desc,
+        "sub name is ${stash}::$name"
     );
 }
 
@@ -36,9 +35,18 @@ code_name_is( \&Class::MOP::Method::name, "Class::MOP::Method", "name" );
 
     sub MODIFY_CODE_ATTRIBUTES {
         my ($class, $code) = @_;
-        ::ok(!Class::MOP::get_code_info($code), "no name for a coderef that's still compiling");
+        my @info = Class::MOP::get_code_info($code);
+
+        if ( $] >= 5.011 ) {
+            ::is_deeply(\@info, ['Foo', 'foo'], "got a name for a code ref in an attr handler");
+        }
+        else {
+            ::is_deeply(\@info, [], "no name for a coderef that's still compiling");
+        }
         return ();
     }
 
     sub foo : Bar {}
 }
+
+done_testing;