Change 25480 by [EMAIL PROTECTED] on 2005/09/19 07:11:38
Improve failure case diagnostics from comp/package.t
Affected files ...
... //depot/perl/t/comp/package.t#11 edit
Differences ...
==== //depot/perl/t/comp/package.t#11 (xtext) ====
Index: perl/t/comp/package.t
--- perl/t/comp/package.t#10~23528~ Tue Nov 23 05:35:34 2004
+++ perl/t/comp/package.t Mon Sep 19 00:11:38 2005
@@ -57,15 +57,15 @@
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;
End of Patch.
