diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-09-19 09:05:44 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-09-19 09:05:44 +0000 |
| commit | 6c9a71d960712877211784d99252cbe77c0612c1 (patch) | |
| tree | 8d1549cae0633b6a5895d417b743b55ead3c2718 /ext | |
| parent | 9c6a461f2aaf326faf2e550eea7660e0e53405af (diff) | |
| download | perl-6c9a71d960712877211784d99252cbe77c0612c1.tar.gz | |
Correct test descriptions. bless didn't trigger. ever. Change 31898
forgot to update the comment - lvalue store should trigger once.
p4raw-id: //depot/perl@31901
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Hash/Util/FieldHash/t/05_perlhook.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/Hash/Util/FieldHash/t/05_perlhook.t b/ext/Hash/Util/FieldHash/t/05_perlhook.t index dd61540969..d2dfaf521f 100644 --- a/ext/Hash/Util/FieldHash/t/05_perlhook.t +++ b/ext/Hash/Util/FieldHash/t/05_perlhook.t @@ -76,7 +76,7 @@ use Scalar::Util qw( weaken); is( $counter, 1, "list assign triggers"); $h{ def} = 456; - is( $counter, 2, "lvalue assign triggers twice"); + is( $counter, 2, "lvalue assign triggers"); exists $h{ def}; is( $counter, 3, "good exists triggers"); @@ -96,9 +96,9 @@ use Scalar::Util qw( weaken); $x = $h{ xyz}; is( $counter, 8, "bad read triggers"); - bless \ %h; - is( $counter, 8, "bless triggers(!)"); # XXX, this description seems bogus + bless \ %h; + is( $counter, 8, "bless doesn't trigger"); $x = keys %h; is( $counter, 8, "scalar keys doesn't trigger"); |