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> |
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 }