X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FDBICTest%2FUtil%2FLeakTracer.pm;fp=t%2Flib%2FDBICTest%2FUtil%2FLeakTracer.pm;h=613fedfdf7ce27cbdc70d5a0705e4fd109c80ed7;hb=ee20ecfc16a69671c1c0a2e93b78bdfdbdecd03e;hp=d2ccc25a3ed9b9dfd8419fe83177700ac1242c59;hpb=f06eb015d1f5a43c9fc6c44e6d0b2f73a5aca1e0;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/lib/DBICTest/Util/LeakTracer.pm b/t/lib/DBICTest/Util/LeakTracer.pm
index d2ccc25..613fedf 100644
--- a/t/lib/DBICTest/Util/LeakTracer.pm
+++ b/t/lib/DBICTest/Util/LeakTracer.pm
@@ -293,7 +293,7 @@ sub assert_empty_weakregistry {
     next if ! defined $weak_registry->{$addr}{weakref};
 
     $leaks_found++ unless $tb->in_todo;
-    $tb->ok (0, "Leaked $weak_registry->{$addr}{display_name}");
+    $tb->ok (0, "Expected garbage collection of $weak_registry->{$addr}{display_name}");
 
     my $diag = do {
       local $Data::Dumper::Maxdepth = 1;
@@ -375,7 +375,7 @@ END {
       for (qw(indirect multidimensional bareword::filehandles)) {
         exists $INC{ Module::Runtime::module_notional_filename($_) }
           and
-        $tb->ok(0, "$_ load apparently attempted!!!" )
+        $tb->ok(0, "$_ load should not have been attempted!!!" )
       }
     }
 =cut