From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 19 Sep 2007 09:05:44 +0000 (+0000)
Subject: Correct test descriptions. bless didn't trigger. ever. Change 31898
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6c9a71d960712877211784d99252cbe77c0612c1;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/ext/Hash/Util/FieldHash/t/05_perlhook.t b/ext/Hash/Util/FieldHash/t/05_perlhook.t
index dd61540..d2dfaf5 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");