#!perl
use strict;
use warnings;
use Test::More;
use lib 't/lib';
use Pinto::Tester;
use Pinto::Tester::Util qw(make_dist_archive);
#------------------------------------------------------------------------------
my $source = Pinto::Tester->new;
$source->populate('JOHN/Baz-1.2 = Baz~1.2 & Nuts~2.3');
$source->populate('PAUL/Nuts-2.3 = Nuts~2.3');
#------------------------------------------------------------------------------
# Do a bunch of operations with dry_run=1, and make sure repos is still empty
subtest 'dry run leaves repo empty' => sub {
    my $local = Pinto::Tester->new( init_args => { sources => $source->stack_url } );
    $local->run_ok( 'Pull', { dry_run => 1, targets => 'Baz~1.2' } );
    $local->repository_clean_ok;
    my $archive = make_dist_archive('Qux-2.0 = Qux~2.0');
    $local->run_ok( 'Add', { dry_run => 1, archives => $archive } );
    $local->repository_clean_ok;
};
#------------------------------------------------------------------------------
done_testing;