In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/52143fbb9d625195866dfd908e7e2ed2c9492c50?hp=09476ae38ccc4a195ebeff83ef2774054aa87b97>
- Log ----------------------------------------------------------------- commit 52143fbb9d625195866dfd908e7e2ed2c9492c50 Author: David Golden <[email protected]> Date: Mon Jul 19 21:51:30 2010 -0700 Add exceptions to dual-life.t ----------------------------------------------------------------------- Summary of changes: t/porting/dual-life.t | 13 ++++++++++++- 1 files changed, 12 insertions(+), 1 deletions(-) diff --git a/t/porting/dual-life.t b/t/porting/dual-life.t index cf3c337..cf53d9a 100644 --- a/t/porting/dual-life.t +++ b/t/porting/dual-life.t @@ -1,4 +1,5 @@ #!/perl -w +use 5.010; use strict; # This tests properties of dual-life modules: @@ -10,6 +11,15 @@ use File::Find; use File::Spec::Functions; use Test::More; END { done_testing } +# Exceptions are found in dual-life bin dirs but aren't +# installed by default +my @exceptions = qw( + ../cpan/Encode/bin/ucm2table + ../cpan/Encode/bin/ucmlint + ../cpan/Encode/bin/ucmsort + ../cpan/Encode/bin/unidump +); + my @programs; find( @@ -19,11 +29,12 @@ find( return unless $name =~ m{/(?:bin|scripts?)/\S+\z}; push @programs, $name; - }, + }, qw( ../cpan ../dist ../ext ), ); for my $f ( @programs ) { + next if $f ~~ @exceptions; ok( -f catfile('..', 'utils', basename($f)), "$f" ); } -- Perl5 Master Repository
