| | 1 | #!/bin/sh |
| | 2 | set -e |
| | 3 | |
| | 4 | TESTDIR="$(readlink -f "$(dirname "$0")")" |
| | 5 | . "$TESTDIR/framework" |
| | 6 | setupenvironment |
| | 7 | |
| | 8 | dpkg_field_ordered_list() { |
| | 9 | local FIELDS="$(perl -e " |
| | 10 | use Dpkg::Control; |
| | 11 | use Dpkg::Control::Fields; |
| | 12 | foreach \$f (field_ordered_list(${1})) { |
| | 13 | print \"\$f\\n\"; |
| | 14 | }" | sort -u)" |
| | 15 | if [ -z "$FIELDS" ]; then |
| | 16 | msgfail 'Could not get fields via libdpkg-perl' |
| | 17 | fi |
| | 18 | echo "$FIELDS" |
| | 19 | } |
| | 20 | |
| | 21 | comparelsts() { |
| | 22 | local DIFFOUTPUT="$(diff -u apt.lst dpkg.lst || true)" |
| | 23 | if echo "$DIFFOUTPUT" | grep -q '^+[^+]'; then |
| | 24 | echo |
| | 25 | echo "$DIFFOUTPUT" | grep '^[+-][^+-]' |
| | 26 | msgfail |
| | 27 | else |
| | 28 | msgpass |
| | 29 | fi |
| | 30 | } |
| | 31 | |
| | 32 | msgtest 'Check that apt knows all fields dpkg orders in' 'Packages' |
| | 33 | dpkg_field_ordered_list 'CTRL_INDEX_PKG' > dpkg.lst |
| | 34 | sed -ne 's#^ "\(.*\)",.*$#\1#p' "${SOURCEDIRECTORY}/apt-pkg/tagfile-order.c" | sed -n '/^Package$/,/^Package$/ p' | head -n -1 | sort -u > apt.lst |
| | 35 | comparelsts |
| | 36 | |
| | 37 | msgtest 'Check that apt knows all fields dpkg orders in' 'status' |
| | 38 | dpkg_field_ordered_list 'CTRL_FILE_STATUS' > dpkg.lst |
| | 39 | comparelsts |
| | 40 | |
| | 41 | msgtest 'Check that apt knows all fields dpkg orders in' 'DEBIAN/control' |
| | 42 | dpkg_field_ordered_list 'CTRL_PKG_DEB' > dpkg.lst |
| | 43 | comparelsts |
| | 44 | |
| | 45 | msgtest 'Check that apt knows all fields dpkg orders in' 'Sources' |
| | 46 | dpkg_field_ordered_list 'CTRL_INDEX_SRC' > dpkg.lst |
| | 47 | echo 'Package' > apt.tmp |
| | 48 | sed -ne 's#^ "\(.*\)",.*$#\1#p' "${SOURCEDIRECTORY}/apt-pkg/tagfile-order.c" | sed '/^Package$/,/^Package$/ d' >> apt.tmp |
| | 49 | sort -u apt.tmp > apt.lst |
| | 50 | comparelsts |
| | 51 | |
| | 52 | msgtest 'Check that apt knows all fields dpkg orders in' 'dsc' |
| | 53 | dpkg_field_ordered_list 'CTRL_PKG_SRC' > dpkg.lst |
| | 54 | comparelsts |
| | 55 | |
| | 56 | # HACK, but there is no good way to acquire sources in tests and/or to remember to run this regular manually |
| | 57 | if [ "$USER" = 'david' ]; then |
| | 58 | msgtest 'Check if we have somewhere the sources of' 'dpkg' |
| | 59 | DPKGSOURCE="$(locate dpkg/lib/dpkg/parse.c | head -n 1 || true)" |
| | 60 | if [ -z "$DPKGSOURCE" ]; then |
| | 61 | msgskip 'Not found' |
| | 62 | else |
| | 63 | msgpass |
| | 64 | msgtest 'Check that apt knows about all fields' 'dpkg parses' |
| | 65 | sed -n 's#^.*FIELD("\(.*\)").*$#\1#p' "${DPKGSOURCE}" | sort -u > dpkg.lst |
| | 66 | sed -ne 's#^ "\(.*\)",.*$#\1#p' "${SOURCEDIRECTORY}/apt-pkg/tagfile-order.c" | sed -n '/^Package$/,/^Package$/ p' | head -n -1 | sort -u > apt.lst |
| | 67 | comparelsts |
| | 68 | fi |
| | 69 | |
| | 70 | msgtest 'Check if we have somewhere the sources of' 'dak' |
| | 71 | DAKSOURCE="$(locate dak/setup/core-init.d/080_metadatakeys | head -n 1 || true)" |
| | 72 | if [ -z "$DAKSOURCE" ]; then |
| | 73 | msgskip 'Not found' |
| | 74 | else |
| | 75 | msgpass |
| | 76 | msgtest 'Check that apt knows about all fields' 'dak knows' |
| | 77 | # dak mixes both, so we can only check with the mixed one as well |
| | 78 | sed -ne "s#^.* VALUES ('\(.*\)', \(.*\)).*\$#\1 \2#p" "${DAKSOURCE}" | cut -d ' ' -f 1 | sort -u > dpkg.lst |
| | 79 | sed -ne 's#^ "\(.*\)",.*$#\1#p' "${SOURCEDIRECTORY}/apt-pkg/tagfile-order.c" | sort -u > apt.lst |
| | 80 | comparelsts |
| | 81 | fi |
| | 82 | fi |
projects / apt.git / blame_incremental