Add exceptions to dual-life.t

1 files changed, 12 insertions, 1 deletions

diff --git a/t/porting/dual-life.t b/t/porting/dual-life.t
index cf3c337017..cf53d9aa0c 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" );
 }