Added t/porting/dual-life.t

Because we manually generate Makefiles, any executables need to be
generated from .PL files in utils/.  This test checks if dual-life
executables show up in utils/.

1 files changed, 29 insertions, 0 deletions

diff --git a/t/porting/dual-life.t b/t/porting/dual-life.t
new file mode 100644
index 0000000000..cf3c337017
--- /dev/null
+++ b/t/porting/dual-life.t
@@ -0,0 +1,29 @@
+#!/perl -w
+use strict;
+
+# This tests properties of dual-life modules:
+#
+# * Are all dual-life programs being generated in utils/?
+
+use File::Basename;
+use File::Find;
+use File::Spec::Functions;
+use Test::More; END { done_testing }
+
+my @programs;
+
+find(
+  sub {
+    my $name = $File::Find::name;
+    return if $name =~ /blib/;
+    return unless $name =~ m{/(?:bin|scripts?)/\S+\z};
+
+    push @programs, $name;
+  }, 
+  qw( ../cpan ../dist ../ext ),
+);
+
+for my $f ( @programs ) {
+  ok( -f catfile('..', 'utils', basename($f)), "$f" );
+}
+