develooper Front page | perl.cvs.parrot | Postings from January 2009

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

From:
cotto
Date:
January 12, 2009 04:52
Subject:
[svn:parrot] r35435 - trunk/t/codingstd
Message ID:
20090112125242.178B8CB9F9@x12.develooper.com
Author: cotto
Date: Mon Jan 12 04:52:40 2009
New Revision: 35435

Modified:
   trunk/t/codingstd/c_arg_assert.t

Log:
[t] improve ordering of results from arg assert test


Modified: trunk/t/codingstd/c_arg_assert.t
==============================================================================
--- trunk/t/codingstd/c_arg_assert.t	(original)
+++ trunk/t/codingstd/c_arg_assert.t	Mon Jan 12 04:52:40 2009
@@ -64,7 +64,7 @@
     ok(!scalar @missing);
     if(scalar @missing) {
         diag("unused assert macros found:");
-        foreach my $missing (sort @missing) {
+        foreach my $missing (sort { $a->[1] . $a->[0] cmp $b->[1] . $b->[0]} @missing) {
             diag($missing->[1] . ": " . $missing->[0]);
         }
         diag(scalar(@missing) . " unused assert macros found in total.");



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About