diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-09-19 07:11:38 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-09-19 07:11:38 +0000 |
| commit | f0f07b90be5c8a3c6c496b2510fa40456a2b5a42 (patch) | |
| tree | 1e74fd4719d6d1e9435532cf023b80f876f9f908 | |
| parent | 840296de2f2802a7ba67f4bd1e075f58ec18c0f4 (diff) | |
| download | perl-f0f07b90be5c8a3c6c496b2510fa40456a2b5a42.tar.gz | |
Improve failure case diagnostics from comp/package.t
p4raw-id: //depot/perl@25480
| -rwxr-xr-x | t/comp/package.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/comp/package.t b/t/comp/package.t index d63e108ceb..35cd40ccb5 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; |