This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Improve failure case diagnostics from comp/package.t
authorNicholas Clark <nick@ccl4.org>
Mon, 19 Sep 2005 07:11:38 +0000 (07:11 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 19 Sep 2005 07:11:38 +0000 (07:11 +0000)
p4raw-id: //depot/perl@25480

t/comp/package.t

index d63e108..35cd40c 100755 (executable)
@@ -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;