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

[petdance at svn.parrot.org]

Author: petdance
Date: Tue Aug 17 02:01:28 2010
New Revision: 48542
URL: https://trac.parrot.org/parrot/changeset/48542

Log:
Improve the diagnostics

Modified:
   trunk/t/codingstd/pir_code_coda.t

Modified: trunk/t/codingstd/pir_code_coda.t
==============================================================================
--- trunk/t/codingstd/pir_code_coda.t	Tue Aug 17 01:12:07 2010	(r48541)
+++ trunk/t/codingstd/pir_code_coda.t	Tue Aug 17 02:01:28 2010	(r48542)
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2006-2009, Parrot Foundation.
+# Copyright (C) 2006-2010, Parrot Foundation.
 # $Id$
 
 use strict;
@@ -73,15 +73,13 @@
         if $vim_many > 1 || $emacs_many > 1;
 }
 
-ok( !scalar(@no_coda), 'PIR code coda present' )
-    or diag( "PIR code coda missing in " . scalar @no_coda . " files:\n at no_coda" );
-
-ok( !scalar(@extra_coda), 'PIR code coda appears only once' )
-    or diag( "PIR code coda repeating in " . scalar @extra_coda . " files:\n at extra_coda" );
+# If we use is_deeply, then the differences will show in the test output.
+is_deeply( \@no_coda,    [], 'PIR code coda present' );
+is_deeply( \@extra_coda, [], 'PIR code coda appears only once' );
 
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4
 #   fill-column: 100
 # End:
-# vim: expandtab shiftwidth=4:
+# vim: expandtab shiftwidth=4 tabstop=4: