projects / apt.git / blame
| Commit | Line | Data |
|---|---|---|
| e8fb1cdf DK |
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 |