Skip Menu |
 

This queue is for tickets about the TAP-Harness-Archive CPAN distribution.

Report information
The Basics
Id: 62601
Status: new
Priority: 0/
Queue: TAP-Harness-Archive

People
Owner: Nobody in particular
Requestors: mingc.tsai [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: Bug: sort list of TAP entries
Date: Sun, 31 Oct 2010 14:43:38 -0700
To: bug-TAP-Harness-Archive [...] rt.cpan.org
From: Ming Chen Tsai <mingc.tsai [...] gmail.com>
Download (untitled) / with headers
text/plain 1.2k
Hi, smolder/tags/1.23 TAP-Harness-Archive-0.10/lib/TAP/Harness In the STEVE/smolder test report framework's report listing. The list of TAP entries are stored in un-sorted order. Would like to request/improve to have report entries sorted chronologically in fashion similar to sort call below between line 226/227. Thanks for the great work on STEVE :) Ming-Chen Tsai smolder/tags/1.23/src/TAP-Harness-Archive-0.10/lib/TAP/Harness/Archive.pm 210 sub _get_all_tap_files { 211 my ($self, $dir, $meta) = @_; 212 $dir ||= $self->{__archive_tempdir}; 213 my @files; 214 my %x_files; 215 if($meta && $meta->{extra_files}) { 216 %x_files = map { $_ => 1 } @{$meta->{extra_files}}; 217 } 218 219 File::Find::find( 220 { 221 no_chdir => 1, 222 wanted => sub { 223 return if /^\./; 224 return if -d; 225 my $rel_name = File::Spec->abs2rel($_, $dir); 226 return if $rel_name eq 'meta.yml'; *@files = sort {(stat($a))[9] <=> (stat($b))[9]} @files;* 227 push(@files, $rel_name) unless $x_files{$rel_name}; 228 }, 229 }, 230 $dir 231 ); 232 return @files; 233 }


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.