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
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
|
#!/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;
use Test::Dpkg qw(:paths);
BEGIN {
plan tests => 2438;
use_ok('Dpkg::Control::Types');
use_ok('Dpkg::Control::FieldsCore');
}
#my $datadir = test_get_data_path();
my @src_dep_fields = qw(
Build-Depends Build-Depends-Arch Build-Depends-Indep
Build-Conflicts Build-Conflicts-Arch Build-Conflicts-Indep
);
my @bin_dep_normal_fields = qw(
Pre-Depends Depends Recommends Suggests Enhances
);
my @bin_dep_union_fields = qw(
Conflicts Breaks Replaces Provides Built-Using
);
my @bin_dep_fields = (@bin_dep_normal_fields, @bin_dep_union_fields);
my @src_checksums = qw(
Checksums-Md5 Checksums-Sha1 Checksums-Sha256
);
my @bin_checksums = qw(
MD5sum SHA1 SHA256
);
my @src_files = (@src_checksums, qw(Files));
my @bin_files = (qw(Filename Size), @bin_checksums);
my @vcs_fields = qw(
Vcs-Browser Vcs-Arch Vcs-Bzr Vcs-Cvs Vcs-Darcs Vcs-Git Vcs-Hg Vcs-Mtn
Vcs-Svn
);
my @test_fields = qw(
Testsuite Testsuite-Triggers
);
my %fields = (
CTRL_INFO_SRC() => {
name => 'debian/control source stanza',
unordered => 1,
fields => [
qw(Bugs Homepage Description Origin Maintainer Uploaders
Priority Section Source Standards-Version),
@test_fields, @vcs_fields, @src_dep_fields
],
},
CTRL_INFO_PKG() => {
name => 'debian/control binary stanza',
unordered => 1,
fields => [
qw(Architecture Build-Essential Build-Profiles Built-For-Profiles
Description Essential Homepage
Installer-Menu-Item Kernel-Version Multi-Arch
Package Package-Type Priority Section Subarchitecture
Tag Task), @bin_dep_fields
],
},
CTRL_PKG_SRC() => {
name => '.dsc',
fields => [
qw(Format Source Binary Architecture Version Origin Maintainer
Uploaders Homepage Description Standards-Version),
@vcs_fields, @test_fields, @src_dep_fields,
qw(Package-List),
@src_files
],
},
CTRL_PKG_DEB() => {
name => 'DEBIAN/control',
fields => [
qw(Package Package-Type Source Version Built-Using Kernel-Version
Built-For-Profiles Auto-Built-Package Architecture
Subarchitecture Installer-Menu-Item
Build-Essential Essential Origin Bugs
Maintainer Installed-Size), @bin_dep_fields,
qw(Section Priority Multi-Arch Homepage Description Tag Task)
],
},
CTRL_INDEX_SRC() => {
name => 'Sources',
fields => [
qw(Format Package Binary Architecture Version Priority Section
Origin Maintainer Uploaders Homepage Description
Standards-Version),
@vcs_fields, @test_fields, @src_dep_fields,
qw(Package-List Directory),
@src_files
],
},
CTRL_INDEX_PKG() => {
name => 'Packages',
fields => [
qw(Package Package-Type Source Version Built-Using Kernel-Version
Built-For-Profiles Auto-Built-Package Architecture
Subarchitecture Installer-Menu-Item
Build-Essential Essential Origin Bugs
Maintainer Installed-Size), @bin_dep_fields, @bin_files,
qw(Section Priority Multi-Arch Homepage Description Tag Task)
],
},
CTRL_REPO_RELEASE() => {
name => 'Release',
fields => [
qw(Origin Label Suite Codename Changelogs Date Valid-Until
Architectures Components Description),
@bin_checksums
],
},
CTRL_CHANGELOG() => {
name => 'debian/changelog',
fields => [
qw(Source Binary-Only Version Distribution Urgency Maintainer
Timestamp Date Closes Changes)
],
},
CTRL_COPYRIGHT_HEADER() => {
name => 'debian/copyright Format stanza',
fields => [
qw(Format Upstream-Name Upstream-Contact Source Disclaimer Comment
License Copyright)
],
},
CTRL_COPYRIGHT_FILES() => {
name => 'debian/copyright Files stanza',
fields => [
qw(Files Copyright License Comment)
],
},
CTRL_COPYRIGHT_LICENSE() => {
name => 'debian/copyright License stanza',
fields => [
qw(License Comment)
],
},
CTRL_TESTS() => {
name => 'debian/tests/control',
unordered => 1,
fields => [
qw(Classes Depends Features Restrictions Test-Command Tests
Tests-Directory)
],
},
CTRL_FILE_BUILDINFO() => {
name => '.buildinfo',
fields => [
qw(Format Source Binary Architecture Version Binary-Only-Changes),
@src_checksums,
qw(Build-Origin Build-Architecture Build-Kernel-Version
Build-Date Build-Path Build-Tainted-By
Installed-Build-Depends Environment)
],
},
CTRL_FILE_CHANGES() => {
name => '.changes',
fields => [
qw(Format Date Source Binary Binary-Only Built-For-Profiles
Architecture Version Distribution Urgency Maintainer
Changed-By Description Closes Changes),
@src_files
],
},
CTRL_FILE_VENDOR() => {
name => 'dpkg origin',
unordered => 1,
fields => [
qw(Bugs Parent Vendor Vendor-Url)
],
},
CTRL_FILE_STATUS() => {
name => 'dpkg status',
fields => [
qw(Package Essential Status Priority Section Installed-Size
Origin Maintainer Bugs Architecture Multi-Arch Source
Version Config-Version
Replaces Provides Depends Pre-Depends
Recommends Suggests Breaks Conflicts Enhances
Conffiles Description Triggers-Pending Triggers-Awaited
Auto-Built-Package Build-Essential Built-For-Profiles
Built-Using Homepage Installer-Menu-Item Kernel-Version
Package-Type Subarchitecture Tag Task)
],
},
);
is_deeply([ field_list_src_dep() ],
[ @src_dep_fields ],
'List of build dependencies');
is_deeply([ field_list_pkg_dep() ],
[ @bin_dep_fields ],
'List of build dependencies');
is(field_capitalize('invented-field'), 'Invented-Field',
'Field Invented-Field capitalization');
ok(!field_is_official('invented-field'),
'Field Invented-Field is not official');
my %known_fields;
foreach my $type (sort keys %fields) {
if (not $fields{$type}->{unordered}) {
is_deeply([ field_ordered_list($type) ], $fields{$type}->{fields},
"List of $fields{$type}->{name} fields");
}
foreach my $field (@{$fields{$type}->{fields}}) {
$known_fields{$field} = 1;
}
}
foreach my $field (sort keys %known_fields) {
is(field_capitalize($field), $field, "Field $field capitalization");
is(field_capitalize(lc $field), $field, "Field lc($field) capitalization");
is(field_capitalize(uc $field), $field, "Field uc($field) capitalization");
ok(field_is_official($field), "Field $field is official");
ok(field_is_official(lc $field), "Field lc($field) is official");
ok(field_is_official(uc $field), "Field uc($field) is official");
}
foreach my $type (sort keys %fields) {
my %allowed_fields = map { $_ => 1 } @{$fields{$type}->{fields}};
foreach my $field (sort keys %known_fields) {
if ($allowed_fields{$field}) {
ok(field_is_allowed_in($field, $type),
"Field $field allowed for type $type");
} else {
ok(!field_is_allowed_in($field, $type),
"Field $field not allowed for type $type");
}
}
}
|
