use File::Spec::Functions qw(catfile);
use Test::Output;
use vars qw( @scripts );
BEGIN {
open my($fh), "<", "MANIFEST" or die "Could not open MANIFEST! $!";
@scripts =
map { catfile( split m|/| ) }
grep { /\.pl$/ }
map { chomp; $_ }
<$fh>;
}
use Test::More tests => 2 * scalar @scripts;
foreach my $script ( @scripts )
{
ok( -e $script, "$script exists" );
my $output = `$^X -c $script 2>&1`;
print "Bail out! $script did not compile\n"
unless like( $output, qr/syntax ok/i, "Script $script compiles" );
}