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
|
use Test::More tests => 37;
use Debian::Debhelper::Dh_components;
use Readonly;
use Perl6::Slurp;
use Test::LongString;
use Test::NoWarnings;
use Test::Deep;
Readonly my $COPYRIGHT_OUT => 't/data/copyright/out1';
my $components = Debian::Debhelper::Dh_components->new(
dir=>'t/data/test1',
package=> 'Test1',
rules_locations=>[
't/data/test1/%',
't/data/test1',
'build_stages',
],
);
isa_ok($components, 'Debian::Debhelper::Dh_components');
my $bs = join '|', $components->build_stages;
is($bs, 'copy|patch|config|build|test|install', 'build stages');
is($components->directory, 't/data/test1', 'directory');
is($components->package, 'Test1', 'package');
my @comps = sort $components->components;
is_deeply(\@comps, ['comp1', 'comp2', 'comp3'], 'component listing');
foreach my $bs ($components->build_stages) {
is($components->script('comp1',$bs),"build_stages/$bs", $bs);
}
foreach my $bs ($components->build_stages) {
is($components->script('comp2',$bs),"t/data/test1/comp2/$bs", $bs);
}
foreach my $bs ($components->build_stages) {
is($components->script('comp3',$bs),
$bs eq 'patch'
? "t/data/test1/comp3/$bs"
: "build_stages/$bs", $bs);
}
$components->build_copyright($COPYRIGHT_OUT);
my $expected = slurp 't/data/copyright/expected1';
my $out = slurp $COPYRIGHT_OUT;
# We cannot entirely assume the order in which the components
# will be assembled. See #647278.
is(length $out, length $expected, "file contents length");
my @expected = split /\n\n/, $expected;
foreach my $stanza (@expected) {
contains_string($out, $stanza, "file contents stanza");
}
my $substvars = $components->substvars();
my @substvars = $components->substvars();
cmp_bag($substvars, \@substvars, 'wantarray');
cmp_bag($substvars,
[
{deppackage=>'dep3',component=>'comp2',substvar=>'Depends',rel=>undef,ver=>undef},
{deppackage=>'dep4',component=>'comp2',substvar=>'Depends',rel=>'>=',ver=>'1.67'},
{deppackage=>'dep1',component=>'comp1',substvar=>'Depends',rel=>undef,ver=>undef},
{deppackage=>'dep2',component=>'comp1',substvar=>'Depends',rel=>'>=',ver=>'0.67'},
{deppackage=>'rec1',component=>'comp1',substvar=>'Recommends',rel=>undef,ver=>undef},
{deppackage=>'rec2',component=>'comp1',substvar=>'Recommends',rel=>'=',ver=>'0.650'},
{deppackage=>'sug1',component=>'comp1',substvar=>'Suggests',rel=>'<=',ver=>'0.8'},
{deppackage=>'enh1',component=>'comp1',substvar=>'Enhances',rel=>undef,ver=>undef},
{deppackage=>'repl1',component=>'comp1',substvar=>'Replaces',rel=>undef,ver=>undef},
{deppackage=>'pre1',component=>'comp1',substvar=>'Pre-Depends',rel=>undef,ver=>undef},
{deppackage=>'confl1',component=>'comp1',substvar=>'Conflicts',rel=>undef,ver=>undef},
{deppackage=>'break1',component=>'comp1',substvar=>'Breaks',rel=>undef,ver=>undef},
], 'substvars');
unlink $COPYRIGHT_OUT;
|
