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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use Debian::Debhelper::SequencerUtil;
# Shorten variants of the sequences.
my @bd = (qw{
dh_testdir
dh_auto_configure
dh_auto_build
dh_auto_test
});
my @i = (qw{
dh_testroot
dh_prep
dh_auto_install
dh_install
dh_missing
});
my @ba=qw{
dh_strip
dh_makeshlibs
dh_shlibdeps
};
my @b=qw{
dh_installdeb
dh_gencontrol
dh_builddeb
};
my %sequences = (
'build-indep' => [@bd],
'build-arch' => [@bd],
'build' => [to_rules_target("build-arch"), to_rules_target("build-indep")],
'install-indep' => [to_rules_target("build-indep"), @i],
'install-arch' => [to_rules_target("build-arch"), @i],
'install' => [to_rules_target("build"), to_rules_target("install-arch"), to_rules_target("install-indep")],
'binary-indep' => [to_rules_target("install-indep"), @b],
'binary-arch' => [to_rules_target("install-arch"), @ba, @b],
'binary' => [to_rules_target("install"), to_rules_target("binary-arch"), to_rules_target("binary-indep")],
);
plan tests => 11;
# We will horse around with %EXPLICIT_TARGETS in this test; it should
# definitely not attempt to read d/rules or the test will be break.
$Debian::Debhelper::SequencerUtil::RULES_PARSED = 1;
is_deeply(
[optimize_sequence(\%sequences, 'build')],
[[], [@bd]],
'Inlined build sequence matches build-indep/build-arch');
is_deeply(
[optimize_sequence(\%sequences, 'install')],
[[], [@bd, @i]],
'Inlined install sequence matches build-indep/build-arch + install commands');
is_deeply(
[optimize_sequence(\%sequences, 'binary-arch')],
[[], [@bd, @i, @ba, @b]],
'Inlined binary-arch sequence has all the commands');
is_deeply(
[optimize_sequence(\%sequences, 'binary-indep')],
[[], [@bd, @i, @b]],
'Inlined binary-indep sequence has all the commands except @bd');
is_deeply(
[optimize_sequence(\%sequences, 'binary')],
[[], [@bd, @i, @ba, @b]],
'Inlined binary sequence has all the commands');
is_deeply(
[optimize_sequence(\%sequences, 'binary', 0, { 'build' => 1, 'build-arch' => 1, 'build-indep' => 1})],
[[], [@i, @ba, @b]],
'Inlined binary sequence with build-* done has @i, @ba and @b');
{
local $Debian::Debhelper::SequencerUtil::EXPLICIT_TARGETS{'build'} = 1;
is_deeply(
[optimize_sequence(\%sequences, 'binary')],
[[to_rules_target('build')], [@i, @ba, @b]],
'Inlined binary sequence has all the commands but build target is opaque');
is_deeply(
[optimize_sequence(\%sequences, 'binary', 0, { 'build' => 1, 'build-arch' => 1, 'build-indep' => 1})],
[[], [@i, @ba, @b]],
'Inlined binary sequence has all the commands with build-* done and not build-target');
is_deeply(
[optimize_sequence(\%sequences, 'build')],
[[], [@bd]],
'build sequence is inlineable');
}
{
local $Debian::Debhelper::SequencerUtil::EXPLICIT_TARGETS{'install-arch'} = 1;
is_deeply(
[optimize_sequence(\%sequences, 'binary')],
# @bd_minimal, @bd and @i should be "-i"-only, @ba + @b should be both.
# Unfortunately, optimize_sequence cannot show that.
[[to_rules_target('install-arch')], [@bd, @i, @ba, @b]],
'Inlined binary sequence has all the commands');
}
{
local $Debian::Debhelper::SequencerUtil::EXPLICIT_TARGETS{'install-arch'} = 1;
local $Debian::Debhelper::SequencerUtil::EXPLICIT_TARGETS{'build'} = 1;
my $actual = [optimize_sequence(\%sequences, 'binary')];
# @i should be "-i"-only, @ba + @b should be both.
# Unfortunately, optimize_sequence cannot show that.
my $expected = [[to_rules_target('build'), to_rules_target('install-arch')], [@i, @ba, @b]];
# Permit some fuzz on the order between build and install-arch
if ($actual->[0][0] eq to_rules_target('install-arch')) {
$expected->[0][0] = to_rules_target('install-arch');
$expected->[0][1] = to_rules_target('build');
}
is_deeply(
$actual,
$expected,
'Inlined binary sequence has all the commands');
}
|
