| Subject: | t/filetypes.t failing on 5.6.1 |
Under 5.6.1, filetypes.t failes like so:
Show quoted text
> perl -Tw -Iblib/lib/ t/filetypes.t
1..8
ok 1 - use App::Ack;
Unquoted string "filetypes" may clash with future reserved word at
t/filetypes.t line 12.
not ok 2 - foo.pod can be multiple things
# Failed test (t/filetypes.t at line 12)
# Structures begin differing at:
# $got->[0] = 'foo.pod'
# $expected->[0] = 'parrot'
# $VAR1 = [
# 'parrot',
# 'perl'
# ];
ok 3 - Bongo.pm
ok 4 - Makefile.PL
ok 5 - Unknown
ok 6 - foo.pod can be perl
ok 7 - foo.pod can be parrot
ok 8 - foo.pod cannot be ruby
# Looks like you failed 1 tests of 8.
The attached test fails the first case but succeeds the second -
something about sort() with filenames() is throwing 5.6.1 off.
| Subject: | 561bug.t |
#!perl -Tw
use warnings;
use strict;
use Test::More tests => 3;
BEGIN {
use_ok( 'App::Ack' );
}
is_deeply( [sort(filetypes( "foo.pod" ))], [qw( parrot perl )], 'foo.pod can be multiple things' );
my @filetypes = filetypes( "foo.pod" );
is_deeply( [sort(@filetypes)], [qw( parrot perl )], 'foo.pod can be multiple things' );