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-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f0f07b90be5c8a3c6c496b2510fa40456a2b5a42;p=p5sagit%2Fp5-mst-13.2.git

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;