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
|
#!/bin/sh
set -e
TESTDIR="$(readlink -f "$(dirname "$0")")"
. "$TESTDIR/framework"
setupenvironment
DPKG_PERL_VERSION="$(perl -e 'use Dpkg; print "$Dpkg::PROGVERSION";')"
DPKG_OUTPUT_SORT='sort -u'
if dpkg --compare-versions "$DPKG_PERL_VERSION" '>=' '1.21.4~'; then
DPKG_OUTPUT_SORT='sort'
fi
dpkg_field_ordered_list() {
local FIELDS="$(perl -e "
use Dpkg::Control;
use Dpkg::Control::Fields;
foreach \$f (field_ordered_list(${1})) {
print \"\$f\\n\";
}" | $DPKG_OUTPUT_SORT )"
if [ -z "$FIELDS" ]; then
msgfail 'Could not get fields via libdpkg-perl'
fi
echo "$FIELDS"
}
comparelsts() {
local DIFFOUTPUT="$(diff -u apt.lst dpkg.lst || true)"
if echo "$DIFFOUTPUT" | grep -q '^+[^+]'; then
echo
echo "$DIFFOUTPUT" | grep '^[+-][^+-]'
msgfail
else
msgpass
fi
}
grep -v '^#' "${SOURCEDIRECTORY}/apt-pkg/tagfile-keys.list" > tagfile-keys.list
# Hardcoding this is a bit silly, but it might help preventing issues…
msgtest 'File is append only: do not sort, remove or insert keys in' 'tagfile-keys.list'
testequal --nomsg 'Version' sed '72q;d' tagfile-keys.list
msgtest 'List has fewer entries than pkgTagSection buckets' 'tagfile-keys.list'
ENTRIES_LIST="$(wc -l tagfile-keys.list | cut -d' ' -f 1)"
ENTRIES_BUCKET="$(grep -m 1 'AlphaIndexes\[' "${SOURCEDIRECTORY}/apt-pkg/tagfile.h" | sed -e 's#.*\[\([0-9]\+\)\].*#\1#')"
if test $ENTRIES_LIST -lt $ENTRIES_BUCKET; then
msgpass
else
echo
echo "List has $ENTRIES_LIST entries, but pkgTagSection can only store $ENTRIES_BUCKET as AlphaIndexes"
msgfail
fi
msgtest 'Check for duplicates in' 'tagfile-keys.list'
sort tagfile-keys.list > apt.lst
testempty --nomsg uniq --repeated 'apt.lst'
msgtest 'Check that apt knows all fields it orders' 'itself'
grep -v "// NO_KEY: " "${SOURCEDIRECTORY}/apt-pkg/tagfile-order.c" | sed -ne 's#^ "\(.*\)",.*$#\1#p' | sort -u > dpkg.lst
comparelsts
msgtest 'Check tagfile-keys.list does not contain' 'obsoleted and internal fields'
grep "// NO_KEY: " "${SOURCEDIRECTORY}/apt-pkg/tagfile-order.c" | sed -ne 's#^ "\(.*\)",.*$#\1#p' > obsolete.lst
sed -n -e's#^ *// *"\(.*\)",.*$#\1#p' "${SOURCEDIRECTORY}/apt-pkg/tagfile-order.c" >> obsolete.lst
sort -u obsolete.lst > obsolete-sorted.lst
sort obsolete-sorted.lst tagfile-keys.list > obsolete-keys.lst
testempty --nomsg uniq --repeat 'obsolete-keys.lst'
msgtest 'Check that apt knows all fields dpkg orders in' 'Packages'
dpkg_field_ordered_list 'CTRL_INDEX_PKG' > dpkg.lst
sed -ne 's#^ "\(.*\)",.*$#\1#p' "${SOURCEDIRECTORY}/apt-pkg/tagfile-order.c" | sed -n '/^Package$/,/^Package$/ p' | head -n -1 | sort > apt.lst
comparelsts
msgtest 'Check that apt knows all fields dpkg orders in' 'status'
dpkg_field_ordered_list 'CTRL_FILE_STATUS' > dpkg.lst
comparelsts
msgtest 'Check that apt knows all fields dpkg orders in' 'DEBIAN/control'
dpkg_field_ordered_list 'CTRL_PKG_DEB' > dpkg.lst
comparelsts
msgtest 'Check that apt knows all fields dpkg orders in' 'Sources'
dpkg_field_ordered_list 'CTRL_INDEX_SRC' > dpkg.lst
echo 'Package' > apt.tmp
sed -ne 's#^ "\(.*\)",.*$#\1#p' "${SOURCEDIRECTORY}/apt-pkg/tagfile-order.c" | sed '/^Package$/,/^Package$/ d' >> apt.tmp
sort -u apt.tmp > apt.lst
comparelsts
msgtest 'Check that apt knows all fields dpkg orders in' 'dsc'
dpkg_field_ordered_list 'CTRL_PKG_SRC' > dpkg.lst
comparelsts
DPKG_SOURCE_PARSE_C="${DPKG_SOURCE_DIRECTORY}/lib/dpkg/parse.c"
msgtest 'Compare our knowledge with the source code of' 'dpkg'
if [ -z "$DPKG_SOURCE_DIRECTORY" ]; then
msgskip 'source not provided'
elif [ ! -r "$DPKG_SOURCE_PARSE_C" ]; then
msgfail 'source not found'
else
msgpass
msgtest 'Check that apt knows about all fields' 'dpkg parses'
sed -n 's#^.*FIELD("\(.*\)").*$#\1#p' "${DPKG_SOURCE_PARSE_C}" | sort -u > dpkg.lst
sed -n -e's#^ *// *"# "#' -e 's#^ "\(.*\)",.*$#\1#p' "${SOURCEDIRECTORY}/apt-pkg/tagfile-order.c" | sed -n '/^Package$/,/^Package$/ p' | head -n -1 | sort > apt.lst
comparelsts
fi
DAK_SOURCE_METADATAKEYS="${DAK_SOURCE_DIRECTORY}/setup/core-init.d/080_metadatakeys"
msgtest 'Compare our knowledge with the source code of' 'dak'
if [ -z "$DAK_SOURCE_DIRECTORY" ]; then
msgskip 'source not provided'
elif [ ! -r "$DAK_SOURCE_METADATAKEYS" ]; then
msgfail 'source not found'
else
msgpass
msgtest 'Check that apt knows about all fields' 'dak knows'
# dak mixes both, so we can only check with the mixed one as well
sed -ne "s#^.* VALUES ('\(.*\)', \(.*\)).*\$#\1 \2#p" "${DAK_SOURCE_METADATAKEYS}" | cut -d ' ' -f 1 | sort -u > dpkg.lst
sed -ne 's#^ "\(.*\)",.*$#\1#p' "${SOURCEDIRECTORY}/apt-pkg/tagfile-order.c" | sort -u > apt.lst
comparelsts
fi
|
