view release on metacpan or  search on metacpan

t/diagnostics/main-module.t  view on Meta::CPAN

use Test::DZil;
use Test::Fatal;

sub mkconfig {
  my $root = shift;
  my $t = Builder->from_config( { dist_root => $root }, { add_files => { 'source/dist.ini' => simple_ini(@_) } } );
  $t->build;
  return $t;
}

sub testeval(&&) {
  my ( $evaler, $testcode ) = @_;
  local $@;
  eval { $evaler->(); };
  my $lasterror = $@;
  $lasterror = undef if $lasterror eq "";
  $testcode->( defined $lasterror, $lasterror );
}

subtest "no main_module + No Gatherdir + Legit Filesystem" => sub {
  my $error = exception {