[svn:parrot] r45018 - trunk/t/codingstd

[Util at svn.parrot.org]

Author: Util
Date: Thu Mar 18 18:06:44 2010
New Revision: 45018
URL: https://trac.parrot.org/parrot/changeset/45018

Log:
[t] pdd_format.t - Removed duplicate info from error mesage

Modified:
   trunk/t/codingstd/pdd_format.t

Modified: trunk/t/codingstd/pdd_format.t
==============================================================================
--- trunk/t/codingstd/pdd_format.t	Thu Mar 18 18:00:34 2010	(r45017)
+++ trunk/t/codingstd/pdd_format.t	Thu Mar 18 18:06:44 2010	(r45018)
@@ -32,13 +32,10 @@
     }
 }
 
-my $errmsg = q{};
-if ( @diagnostics ) {
-    $errmsg = join ("\n" => @diagnostics) . "\n";
+for my $msg (@diagnostics) {
+    diag($msg);
 }
-
-$errmsg ? fail( qq{\n$errmsg} )
-        : pass( q{All PDDs are formatted correctly} );
+cmp_ok( scalar(@diagnostics), '==', 0, 'PDDs are formatted correctly' );
 
 sub check_pdd_formatting {
     my $pdd = shift;