X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2Fswitch.t;h=d1a8af191f65cc2c352907fdff49d7eb06893d54;hb=24e8cdb889e0ad40169b18813ffa9d1841ab8217;hp=3fcd5cad4aff7f9d1a561ef6e1f40c2a31ebd282;hpb=3ed9f206f0d30a2aff53e7dcd9ca42d692f593f3;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/lib/switch.t b/t/lib/switch.t
index 3fcd5ca..d1a8af1 100644
--- a/t/lib/switch.t
+++ b/t/lib/switch.t
@@ -6,16 +6,8 @@ BEGIN {
 use Carp;
 use Switch qw(__ fallthrough);
 
-print "1..293\n";
-
-my $count = 0;
-sub ok($)
-{
-	$count++;
-	print "line ", (caller)[2], "; " unless $_[0];
-	print "not " unless $_[0];
-	print "ok $count\n";
-}
+my($C,$M);sub ok{$C++;$M.=$_[0]?"ok $C\n":"not ok $C (line ".(caller)[2].")\n"}
+END{print"1..$C\n$M"}
 
 # NON-case THINGS;