1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
#!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;
|
