The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Module::Setup::Test::Utils;
use Test::More tests => 3;

use t::Helper::Basic;

my $setup = t::Helper::Basic->new(
    argv    => [qw/ Test::App /],
    options => {
        target => target_dir,
    },
);
$setup->run;

ok -d target_dir 'Test-App';
ok -f target_dir('Test-App')->file('simple.txt');
unless ($^O eq 'MSWin32') {
    like target_dir('Test-App')->file('simple.txt')->slurp, qr{Test::App\nTest/App}ms;
}
else {
    like target_dir('Test-App')->file('simple.txt')->slurp, qr{Test::App\nTest\\App}ms;
}