#!perl

use strict;
use warnings;

use Test::More;

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

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

subtest 'Basic' => sub {

    my $t = Pinto::Tester->new;
    $t->populate('ME/Dist-1 = PkgA~1 & PkgB~1');
    $t->populate('ME/Dist-2 = PkgB~1 & PkgC~1');
    $t->populate('ME/Dist-3 = PkgC~1');
    $t->populate('ME/Dist-4 = PkgD~1');

    $t->run_ok( Roots => {format => '%D'});
    my @lines = split /\n/, ${ $t->outstr };
    is_deeply \@lines, [qw(Dist-1 Dist-4)], 'Got expected roots';
};

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

subtest 'Circular dependency' => sub {

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

    $t->run_ok( Roots => {format => '%D'});
    my @lines = split /\n/, ${ $t->outstr };

    # TODO: Not sure what to do with circular dependencies;
    # is_deeply \@lines, [qw(Dist-1 Dist-2)], 'Got expected roots in circular dependency';
};

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

done_testing;