From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 19 Sep 2005 07:11:38 +0000 (+0000)
Subject: Improve failure case diagnostics from comp/package.t
X-Git-Tag: perl-5.9.3~1173
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/f0f07b90be5c8a3c6c496b2510fa40456a2b5a42

Improve failure case diagnostics from comp/package.t

p4raw-id: //depot/perl@25480
---

diff --git a/t/comp/package.t b/t/comp/package.t
index d63e108..35cd40c 100755
--- a/t/comp/package.t
+++ b/t/comp/package.t
@@ -57,15 +57,15 @@ print((foo(1))[0] eq 'PQR' ? "ok 8\n" : "not ok 8\n");
 my $Q = xyz->new();
 undef %xyz::;
 eval { $a = *xyz::new{PACKAGE}; };
-print $a eq "__ANON__" ? "ok 9\n" : "not ok 9\n";
+print $a eq "__ANON__" ? "ok 9\n" : "not ok 9 # '$a'\n";
 
 eval { $Q->param; };
 print $@ =~ /^Can't use anonymous symbol table for method lookup/ ?
-  "ok 10\n" : "not ok 10\n";
+  "ok 10\n" : "not ok 10 # '$@'\n";
 
-print "$Q" =~ /^__ANON__=/ ? "ok 11\n" : "not ok 11\n";
+print "$Q" =~ /^__ANON__=/ ? "ok 11\n" : "not ok 11 # '$Q'\n";
 
-print ref $Q eq "__ANON__" ? "ok 12\n" : "not ok 12\n";
+print ref $Q eq "__ANON__" ? "ok 12\n" : "not ok 12 # '$Q'\n";
 
 package bug32562;