use warnings;
use strict;
use feature ':5.10';

warnings->import;
strict->import;
feature->import(':5.10');
use Test::More;
use Test::Exception;
use Test::Output qw( :all );
use Test::MockModule;
use Path::Tiny qw( cwd path tempdir tempfile );
use File::Copy::Recursive qw( dircopy );
use POSIX qw(locale_h); BEGIN { setlocale(LC_MESSAGES,'en_US.UTF-8') } # avoid UTF-8 in $!
use FindBin;
use Config;


my $proj    = tempdir('narada1.project.XXXXXX');
my $guard   = bless {};
CHECK       { chdir q{/}    }
INIT        { chdir $proj   }
sub DESTROY { chdir q{/}    }
sub guard   { ($_[0], $guard) = ($guard, undef) }

my $work        = cwd();
$ENV{PATH}      = "$work/blib/script:$work/bin:".path($Config{perlpath})->dirname.":$ENV{PATH}";
$ENV{PERL5LIB}  = "$work/blib:$work/lib".($ENV{PERL5LIB} ? ":$ENV{PERL5LIB}" : q{});

chdir $proj                                         or die "chdir($proj): $!";
system('narada-new-1') == 0                         or die "narada-new-1 failed";


sub wd { return $work }


1;