view release on metacpan or  search on metacpan

t/300_setup/01_minimum.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;
use File::Spec;
use FindBin;
use lib File::Spec->catdir($FindBin::Bin, '../..');
use t::TestFlavor;
use Test::Requires +{
    'Module::Functions'               => '0',
};
use t::Util;

test_flavor(sub {
    like slurp('cpanfile'), qr/perl/;
    ok(-f 'Build.PL', 'Build.PL');
    ok(-f './lib/My/App.pm', 'lib/My/App.pm exists');
    ok((do './lib/My/App.pm'), 'lib/My/App.pm is valid') or do {
        diag $@;
        diag do {
            open my $fh, '<', './lib/My/App.pm' or die;
            local $/; <$fh>;
        };
    };
}, 'Minimum');

done_testing;