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
|
#!/usr/bin/perl
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <https://www.gnu.org/licenses/>.
use strict;
use warnings;
use Test::More tests => 8;
use Test::Dpkg qw(:paths);
use File::Spec::Functions qw(rel2abs);
use Dpkg ();
use Dpkg::ErrorHandling;
use Dpkg::IPC;
use Dpkg::Vendor;
my $srcdir = $ENV{srcdir} || '.';
my $datadir = test_get_data_path();
# Turn these into absolute names so that we can safely switch to the test
# directory with «make -C».
$ENV{$_} = rel2abs($ENV{$_}) foreach qw(srcdir DPKG_DATADIR DPKG_ORIGINS_DIR);
# Any parallelization from the parent should be ignored, we are testing
# the makefiles serially anyway.
delete $ENV{MAKEFLAGS};
# Delete other variables that can affect the tests.
delete $ENV{$_} foreach grep { m/^DEB_/ } keys %ENV;
$ENV{DEB_BUILD_PATH} = rel2abs($datadir);
sub test_makefile {
my $makefile = shift;
spawn(exec => [ $Dpkg::PROGMAKE, '-C', $datadir, '-f', $makefile ],
wait_child => 1, nocheck => 1);
ok($? == 0, "makefile $makefile computes all values correctly");
}
sub cmd_get_vars {
my (@cmd) = @_;
my %var;
open my $cmd_fh, '-|', @cmd or subprocerr($cmd[0]);
while (<$cmd_fh>) {
chomp;
my ($key, $value) = split /=/, $_, 2;
$var{$key} = $value;
}
close $cmd_fh or subprocerr($cmd[0]);
return %var;
}
# Test makefiles.
my %arch = cmd_get_vars($ENV{PERL}, "$srcdir/dpkg-architecture.pl", '-f');
delete $ENV{$_} foreach keys %arch;
$ENV{"TEST_$_"} = $arch{$_} foreach keys %arch;
test_makefile('architecture.mk');
$ENV{$_} = $arch{$_} foreach keys %arch;
test_makefile('architecture.mk');
my %buildflag = cmd_get_vars($ENV{PERL}, "$srcdir/dpkg-buildflags.pl");
delete $ENV{$_} foreach keys %buildflag;
$ENV{"TEST_$_"} = $buildflag{$_} foreach keys %buildflag;
test_makefile('buildflags.mk');
my %buildtools = (
AS => 'as',
CPP => 'gcc -E',
CC => 'gcc',
CXX => 'g++',
OBJC => 'gcc',
OBJCXX => 'g++',
GCJ => 'gcj',
F77 => 'f77',
FC => 'f77',
LD => 'ld',
STRIP => 'strip',
OBJCOPY => 'objcopy',
OBJDUMP => 'objdump',
NM => 'nm',
AR => 'ar',
RANLIB => 'ranlib',
PKG_CONFIG => 'pkg-config',
);
foreach my $tool (keys %buildtools) {
delete $ENV{$tool};
$ENV{"TEST_$tool"} = "$ENV{DEB_HOST_GNU_TYPE}-$buildtools{$tool}";
delete $ENV{"${tool}_FOR_BUILD"};
$ENV{"TEST_${tool}_FOR_BUILD"} = "$ENV{DEB_BUILD_GNU_TYPE}-$buildtools{$tool}";
}
test_makefile('buildtools.mk');
foreach my $tool (keys %buildtools) {
delete $ENV{${tool}};
delete $ENV{"${tool}_FOR_BUILD"};
}
test_makefile('pkg-info.mk');
test_makefile('vendor.mk');
test_makefile('vendor-v0.mk');
test_makefile('vendor-v1.mk');
1;
|
