ecosystem.t

use Test;
use Panda::Ecosystem;
use Panda::Project;
plan 14;

my $absent    = Panda::Project::absent;
my $installed = Panda::Project::installed;

't/fakestate'.path.copy('REMOVEME');
my $a = Panda::Ecosystem.new(
    statefile    => "{cwd}/REMOVEME",
    projectsfile => 't/fakeprojects'
) but role {
    method flush-states { }
};

my $b = $a.get-project('foo');
is $b.version, 1, 'get-project 1';

$b = Panda::Project.new(name => 'new', version => 5);
$a.add-project($b);
$b = $a.get-project('new');
is $b.version, 5, 'get-project 2';
$b = $a.get-project('foo');
is $b.version, 1, 'get-project 3';

is $a.project-get-state($b), $absent, 'get-state 1';
is $a.project-get-state($a.get-project('new')), $absent, 'get-state 2';
$a.project-set-state($b, $installed);
is $a.project-get-state($b), $installed, 'get-state 3';

is $b.dependencies[0], 'some',  'dependencies 1';
is $b.dependencies[1], 'thing', 'dependencies 2';
is $b.dependencies[2], 'else',  'dependencies 3';

is $a.suggest-project("Frob-Frob"), "Frob::Frob", 'suggestions 1';
is $a.suggest-project("Frob_Frob"), "Frob::Frob", 'suggestions 2';
is $a.suggest-project("frobfrob"), "Frob::Frob", 'suggestions 3';
is $a.suggest-project("Adventure::Engine"), "Adventure-Engine", 'suggestions 4';
is $a.suggest-project("Adventure_engine"), "Adventure-Engine", 'suggestions 5';

unlink "{cwd}/REMOVEME";

# vim: ft=perl6