The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use autobox::Core 1.24;

use Test::More;
use File::Temp 'tempdir';
use Test::DZil;

use lib 't/lib';

my $STASH_NAME = '%TestStash';
my @dist_ini   = qw(TestAddStash FakeRelease);
my $dist_root  = tempdir CLEANUP => 1;

my $tzil = Builder->from_config(
    { dist_root => "$dist_root" },
    {
        add_files => {
            'source/dist.ini' => simple_ini(@dist_ini),
        },
    },
);

isa_ok $tzil, 'Dist::Zilla::Dist::Builder';
ok $tzil->plugin_named('TestAddStash'), 'tzil has our test plugin';

dump_stash_names($tzil);

ok !$tzil->stash_named($STASH_NAME), 'tzil does not yet have the stash';
$tzil->release;
my $stash = $tzil->stash_named($STASH_NAME);
isa_ok $stash, 'Dist::Zilla::Stash::TestStash';

dump_stash_names($tzil);

sub dump_stash_names {
    my $tzil = shift @_;

    note 'global stashes: ' . $tzil->_global_stashes->keys->sort->join(', ');
    note 'local stashes:  ' . $tzil->_local_stashes->keys->sort->join(', ');

    return;
}

done_testing;