#!perl
use strict;
use warnings;
use Test::More 0.89;
use lib 't/lib';
use Test::LivesOK 'lives_ok';
use ExtUtils::Builder::Node;
use ExtUtils::Builder::Plan;
use ExtUtils::Builder::Util 'code';
use ExtUtils::Builder::Action::Code;
use ExtUtils::Builder::Serializer;
our @triggered;
my @nodes = map {
        [
        +"foo$_" => ExtUtils::Builder::Node->new(
                target => "foo$_",
                dependencies => [],
                actions => [ code(code => "push \@::triggered, $_" ) ],
        )
        ]
} 0 .. 2;
my %nodes = map { @$_ } @nodes;
my $root = ExtUtils::Builder::Node->new(target => "foo", dependencies => [ map { "foo$_" } 0..2 ], actions => []);
my $plan;
lives_ok { $plan = ExtUtils::Builder::Plan->new(nodes => { %nodes, foo => $root }) } 'Plan could be created';
my $serializer = 'ExtUtils::Builder::Serializer';
my $serialized = $serializer->serialize_plan($plan);
ok $serialized, 'serialized';
my $deserialized = $serializer->deserialize_plan($serialized);
ok $deserialized, 'deserialized';
lives_ok { $deserialized->run('foo') } 'Executing gave no errors';
is_deeply(\@triggered, [ 0..2 ], 'All actions triggered');
my @order = qw/foo2 foo1 foo0/;
is_deeply([ $plan->node_names ], [ sort keys %nodes, $root->target ], 'Got expected nodes');
done_testing;