Tweak dual-life.t’s exceptions again

[perl5.git] / t / porting / dual-life.t

diff --git a/t/porting/dual-life.t b/t/porting/dual-life.t
index cf3c337..1826c46 100644 (file)
--- a/t/porting/dual-life.t
+++ b/t/porting/dual-life.t
@@ -1,14 +1,36 @@
 #!/perl -w
+use 5.010;
 use strict;
 
 # This tests properties of dual-life modules:
 #
 # * Are all dual-life programs being generated in utils/?
 
+require './test.pl';
+
+plan('no_plan');
+
 use File::Basename;
 use File::Find;
 use File::Spec::Functions;
-use Test::More; END { done_testing }
+
+# Exceptions that are found in dual-life bin dirs but aren't
+# installed by default; some occur only during testing:
+my $not_installed = qr{^(?:
+  \.\./cpan/Encode/bin/u(?:cm(?:2table|lint|sort)|nidump)
+   |
+  \.\./cpan/Module-Build/MB-[\w\d]+/Simple/bin/.*
+)\z}ix;
+
+my %dist_dir_exe;
+
+foreach (qw (podchecker podselect pod2usage)) {
+    $dist_dir_exe{lc "$_.PL"} = "../cpan/Pod-Parser/$_";
+};
+foreach (qw (pod2man pod2text)) {
+    $dist_dir_exe{lc "$_.PL"} = "../cpan/podlators/$_";
+};
+$dist_dir_exe{'pod2html.pl'} = '../ext/Pod-Html';
 
 my @programs;
 
@@ -16,14 +38,23 @@ find(
   sub {
     my $name = $File::Find::name;
     return if $name =~ /blib/;
-    return unless $name =~ m{/(?:bin|scripts?)/\S+\z};
+    return unless $name =~ m{/(?:bin|scripts?)/\S+\z} && $name !~ m{/t/};
 
     push @programs, $name;
-  }, 
+  },
   qw( ../cpan ../dist ../ext ),
 );
 
+my $ext = $^O eq 'VMS' ? '.com' : '';
+
 for my $f ( @programs ) {
-  ok( -f catfile('..', 'utils', basename($f)), "$f" );
+  $f =~ s/\.\z// if $^O eq 'VMS';
+  next if $f =~ $not_installed;
+  my $bn = basename($f);
+  if(qr/\A(?i:$bn)\z/ ~~ %dist_dir_exe) {
+    ok( -f "$dist_dir_exe{lc $bn}$ext", "$f$ext");
+  } else {
+    ok( -f catfile('..', 'utils', "$bn$ext"), "$f$ext" );
+  }
 }