get more information out of this test when it fails

diff --git a/t/082_get_code_info.t b/t/082_get_code_info.t
index b169d40..afc17fb 100644 (file)
--- a/t/082_get_code_info.t
+++ b/t/082_get_code_info.t
@@ -35,7 +35,8 @@ 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);
+        ::is_deeply(\@info, [], "no name for a coderef that's still compiling");
         return ();
     }