write_tests.pl

#!/usr/bin/perl
use strict;
use warnings;
use feature qw(say);

use File::Find;
use Path::Tiny qw(path);

my $dir = shift;

my @modules;
sub wanted {
  my $file = $_ =~/\.pm$/ ? $File::Find::name : undef;
  push @modules, $file if $file;
}

find(\&wanted, $dir);

for my $file (sort @modules) {
  my $bare_file = $file;
     $bare_file =~ s/^mods\/lib\/(.+)\.pm$/$1/;
  my $module =  $bare_file;
     $module =~ s/\//::/g;
  my $out_file =  $bare_file;
     $out_file =~ s/\//-/g;
     $out_file =~ s/^(.+)$/mods\/t\/00-$1\.t/;
  my $version;
  my $fh;
  open($fh, '<', $file) || die $!;
  while (my $line = <$fh>) {
    chomp($line);
    if ($line =~ /^use v(.+)$/) {
      $version = $line;
      last
    }
  }
  close($fh);
  say "$bare_file";
  my $lines = write_test($module, $version);
  open($fh, ">:encoding(UTF-8)", $out_file) || die $!;
  print $fh, $lines;
}

sub write_test {
  my ($module, $version) = @_;

my $test = qq(#!perl
use strict;
use warnings;
$version
use Test::More;

BEGIN {
  use_ok( \'$module\' )
    or die "$module is not available\\n";
}

diag( "Testing $module \$${module}::VERSION, Perl \$], \$^X" );

done_testing();
);

  return $test;
}