t/porting/dual-life.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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" );
}