From: Ricardo Signes <rjbs@cpan.org>
Date: Sat, 21 Nov 2009 13:56:40 +0000 (-0500)
Subject: get more information out of this test when it fails
X-Git-Tag: 0.96~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5a11a1da7b2dc8eb57509e3d3a9bcdf16140b269;p=gitmo%2FClass-MOP.git

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
--- 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 ();
     }