develooper Front page | perl.perl5.porters | Postings from May 2001

[PATCH t/TEST] sorting tests

From:
Michael G Schwern
Date:
May 30, 2001 02:24
Subject:
[PATCH t/TEST] sorting tests
Message ID:
20010530102402.Q670@blackrider.blackstar.co.uk
Rather than trust that readdir() will sort the tests right, this will
do it explicitly.

--- t/TEST	2001/05/30 09:03:47	1.1
+++ t/TEST	2001/05/30 09:04:07
@@ -54,7 +54,7 @@
 sub _find_tests {
     my($dir) = @_;
     opendir DIR, $dir || die "Trouble opening $dir: $!";
-    foreach my $f (readdir DIR) {
+    foreach my $f (sort { $a cmp $b } readdir DIR) {
         next if $f eq $curdir or $f eq $updir;
 
         my $fullpath = File::Spec->catdir($dir, $f);


-- 

Michael G. Schwern   <schwern@pobox.com>    http://www.pobox.com/~schwern/
Perl6 Quality Assurance     <perl-qa@perl.org>	     Kwalitee Is Job One
<mendel>	 ScHWeRnsChweRN    sChWErN   SchweRN  SCHWErNSChwERnsCHwERN    
  sChWErn  ScHWeRn	schweRn 	  sCHWErN	    schWeRn    scHWeRN 
   SchWeRN	scHWErn SchwErn       scHWErn	    ScHweRN	  sChwern      
scHWerN        scHWeRn		 scHWerN	ScHwerN       SChWeRN scHWeRn  
	SchwERNschwERn	      SCHwern  sCHWErN	 SCHWErN	   sChWeRn 



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