Skip Menu |

This queue is for tickets about the File-LocalizeNewlines CPAN distribution.

Report information
The Basics
Id: 26994
Status: new
Priority: 0/
Queue: File-LocalizeNewlines

People
Owner: Nobody in particular
Requestors: sjn [...] cpan.org
Cc:
AdminCc:

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



Subject: t/02_main.t test 35 and 36 fail
The attached patch should fix the test bug.
Subject: File-LocalizeNewlines-t-02_main.t.patch
--- t/02_main.t 2006-05-07 12:27:12.000000000 +0200 +++ t/02_main.t.new 2007-05-08 16:26:27.000000000 +0200 @@ -138,14 +138,14 @@ isa_ok( $Object, FLN ); my @files = $Object->find( $simple_dir ); - @files = grep { ! /ignore/ } grep { ! /CVS/ } @files; # For when building - is_deeply( \@files, [qw{both.txt both.pm}], '->find returns expected for normal search' ); + @files = sort grep { ! /ignore/ } grep { ! /CVS/ } @files; # For when building + is_deeply( \@files, [ sort qw{both.txt both.pm}], '->find returns expected for normal search' ); } { my @files = FLN->find( $simple_dir ); - @files = grep { ! /ignore/ } grep { ! /CVS/ } @files; # For when building - is_deeply( \@files, [qw{both.txt both.pm}], '->find returns expected for normal search' ); + @files = sort grep { ! /ignore/ } grep { ! /CVS/ } @files; # For when building + is_deeply( \@files, [ sort qw{both.txt both.pm}], '->find returns expected for normal search' ); } {