The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strictures 1;
use Test::More;
use App::MyPerl;

my $my_perl = App::MyPerl->new(
  global_config_dir => 't/nonexistant',
  project_config_dir => 't/root'
);

is_deeply(
  $my_perl->perl_options,
  [ '-Mlib::with::preamble=use strict; use warnings qw(FATAL all);,lib,t/lib',
    '-Mstrict', '-Mwarnings=FATAL,all' ],
  'Options ok'
);

done_testing;