#!perl
use Test::More;
use Test::Exception;
use lib 't/lib';
use Pinto::Tester;
#------------------------------------------------------------------------------
{
my $t = Pinto::Tester->new;
$t->stack_is_default_ok('master');
$t->run_ok( New => { stack => 'dev' } );
$t->stack_is_not_default_ok('dev');
$t->run_ok( Default => { stack => 'dev' } );
$t->stack_is_default_ok('dev');
$t->stack_is_not_default_ok('master');
$t->run_ok( Default => { none => 1 } );
$t->stack_is_not_default_ok('master');
$t->stack_is_not_default_ok('dev');
$t->no_default_stack_ok;
throws_ok { $t->pinto->repo->get_stack }
qr/default stack has not been set/,
'There is no default stack at all';
$t->path_not_exists_ok( [qw(modules)] );
}
#------------------------------------------------------------------------------
done_testing;