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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
#! perl
use strict;
use warnings;
use File::Temp 'tempdir';
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::Action::Code;
our @triggered;
{
local @triggered;
my @nodes = map {
[
+"foo$_" => ExtUtils::Builder::Node->new(
target => "foo$_",
dependencies => [],
actions => [ ExtUtils::Builder::Action::Code->new(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';
lives_ok { $plan->run('foo', quiet => 1) } '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');
}
{
local @triggered;
my $dir = tempdir(TMPDIR => 1, CLEANUP => 1);
chdir $dir;
my %nodes = map {
+"foo$_" => ExtUtils::Builder::Node->new(
target => "foo$_",
dependencies => [],
actions => [ ExtUtils::Builder::Action::Code->new(code => "open my \$fh, '>', 'foo$_'" ) ],
)
} 0 .. 2;
my $root = ExtUtils::Builder::Node->new(target => "foo", dependencies => [ map { "foo$_" } 0..2 ], actions => [
ExtUtils::Builder::Action::Code->new(code => "open my \$fh, '>', 'foo'; push \@::triggered, 'foo'" ),
]);
my $plan;
lives_ok { $plan = ExtUtils::Builder::Plan->new(nodes => { %nodes, foo => $root }) } 'Plan could be created';
lives_ok { $plan->run('foo', quiet => 1) } 'Executing gave no errors';
is_deeply(\@triggered, [ 'foo' ], 'Have one foo');
lives_ok { $plan->run('foo', quiet => 1) } 'Executing gave no errors';
is_deeply(\@triggered, [ 'foo' ], 'Have one foo');
my $now = time;
utime $now, $now + 120, 'foo2';
lives_ok { $plan->run('foo', quiet => 1) } 'Executing gave no errors';
is_deeply(\@triggered, [ 'foo', 'foo' ], 'Have two foos');
}
done_testing;
|
