#!perl

use strict;
use warnings;

use Test::More;

use lib 't/lib';
use Pinto::Tester;

#------------------------------------------------------------------------------

subtest 'Not intermingled' => sub {

    my $t = Pinto::Tester->new;
    $t->populate('AUTHOR/Dist-1 = PkgA~1; PkgB~1');
    $t->populate('AUTHOR/Dist-2 = PkgB~2; PkgC~2');

    # When intermingling is not allowed (which is the default)
    # distributions may not overlap.  Adding a distribution
    # with the same package as an existing one causes all
    # packages from the existing distribution to be removed.

    $t->registration_not_ok('AUTHOR/Dist-1/PkgA~1');
    $t->registration_not_ok('AUTHOR/Dist-1/PkgB~1');

    $t->registration_ok('AUTHOR/Dist-2/PkgB~2');
    $t->registration_ok('AUTHOR/Dist-2/PkgC~2');

};

#------------------------------------------------------------------------------

subtest 'Interminged' => sub {

    my $t = Pinto::Tester->new(init_args => {intermingle => 1});
    $t->populate('AUTHOR/Dist-1 = PkgA~1; PkgB~1');
    $t->populate('AUTHOR/Dist-2 = PkgB~2; PkgC~2');

    # When intermingling is allowed, distributions can overlap.
    # This means the stack may contain only some of the packages
    # in the dist. This is how PAUSE acutally behaves.

    $t->registration_ok('AUTHOR/Dist-1/PkgA~1');
    $t->registration_not_ok('AUTHOR/Dist-1/PkgB~1');
    
    $t->registration_ok('AUTHOR/Dist-2/PkgB~2');
    $t->registration_ok('AUTHOR/Dist-2/PkgC~2');

};

#------------------------------------------------------------------------------
done_testing;