This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make new tie test less noisy
authorRafael Garcia-Suarez <rgs@consttype.org>
Fri, 30 Jul 2010 12:22:33 +0000 (14:22 +0200)
committerRafael Garcia-Suarez <rgs@consttype.org>
Fri, 30 Jul 2010 12:22:33 +0000 (14:22 +0200)
t/op/tie_fetch_count.t

index d8186e6..42f8474 100644 (file)
@@ -24,8 +24,7 @@ sub STORE {1;}
 
 sub check_count {
     my $op = shift;
 
 sub check_count {
     my $op = shift;
-    ok $count == 1, "FETCH called just once using '$op'",
-                    "FETCH called $count times";
+    is $count, 1, "FETCH called just once using '$op'";
     $count = 0;
 }
 
     $count = 0;
 }