summaryrefslogtreecommitdiffstats
path: root/tests/aux/common.sh
blob: 3ea37402bbdc3f651bb28aa7c8fc2d2f5d8d5b3e (plain)
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
# Functions common to tests
#
# Copyright (C) 2018, 2019 Patrick McDermott
#
# This file is part of opkbuild.
#
# opkbuild 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 3 of the License, or
# (at your option) any later version.
#
# opkbuild 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 opkbuild.  If not, see <http://www.gnu.org/licenses/>.

is()
{
	local description="${1}"
	local got="${2}"
	local expected="${3}"
	shift 3

	if [ "x${got}" = "x${expected}" ]; then
		ok_ -- "${description}"
	else
		not_ok_ -- "${description}"
		diag_ " Failed test '${description}'"
		diag_ "         got: '${got}'"
		diag_ "    expected: '${expected}'"
	fi
}

cmd_is()
{
	local description="${1}"
	shift 1
	local ok=
	local eof=
	local got=
	local exp=

	ok=true
	exec 3<<-EOF
		$("${@}")
		EOF
	while :; do
		eof=0
		IFS='' read -r got <&3 || eof=$((${eof} + 1))
		IFS='' read -r exp <&0 || eof=$((${eof} + 2))
		[ ${eof} -eq 3 ] && break
		[ x"${got}" = x"${exp}" ] && continue
		if ${ok}; then
			not_ok_ -- "${description}"
			diag_ " Failed test '${description}'"
			ok=false
		fi
		diag_ "         got: '${got}'"
		diag_ "    expected: '${exp}'"
	done
	exec 3<&-

	if ${ok}; then
		ok_ -- "${description}"
	fi
}

FOO_SH="$(cat <<-'EOF'
	#!/bin/sh
	printf 'Hello, world!\n'
	EOF
	)"
FOO_SH_PATCHED="$(cat <<-'EOF'
	#!/bin/sh
	printf 'Goodbye, world!\n'
	EOF
	)"

# SPF 2.0 environment variables:
#   <http://specs.proteanos.com/spf-2.0/buildsys.html#env-vars>
# Section 7.3.1 Package Variables
export OPK_SOURCE='foo'
export OPK_SOURCE_VERSION='1.0-1'
export OPK_SOURCE_VERSION_UPSTREAM='1.0'
export OPK_BINARY_VERSION='1.0-1'
export OPK_PACKAGES='foo baz-qux bar'
export OPK_PACKAGES_REDUCED='foo baz-qux bar'
# Section 7.3.2 Build and Host System Variables
# OPK_BUILD_ARCH_GNU and OPK_HOST_ARCH_GNU aren't set or used by opkbuild
# utilities.  These should be removed from the SPF.
export OPK_BUILD_ARCH='amd64-linux-glibc'
export OPK_BUILD_ARCH_CPU='amd64'
export OPK_BUILD_ARCH_KERNEL='linux'
export OPK_BUILD_ARCH_LIBS='glibc'
export OPK_BUILD_PLAT='dev'
export OPK_HOST_ARCH='i686-linux-glibc'
export OPK_HOST_ARCH_CPU='i686'
export OPK_HOST_ARCH_KERNEL='linux'
export OPK_HOST_ARCH_LIBS='glibc'
export OPK_HOST_PLAT='x60'
# Section 7.3.3 Toolchain Variables aren't used by opkbuild utilities.
export SOURCE_DATE_EPOCH=3600

# For out-of-tree builds, copy test package files to build directory.
rm -Rf "${TOP_BUILDDIR}/tests/data.build/"
cp -Rp "${TOP_SRCDIR}/tests/data/" "${TOP_BUILDDIR}/tests/data.build/"
chmod -R u+w "${TOP_BUILDDIR}/tests/data.build/"  # Automake makes files RO
mkdir -p "${TOP_BUILDDIR}/tests/data.build/pkg/tmp/"
cd "${TOP_BUILDDIR}/tests/data.build/pkg/tmp/"

# And make platconf files.  We can't just distribute these, because Automake's
# shell quoting is haphazard so it chokes in multiple ways on the "*" character
# in one of the directory names.
POEM_GOOD="$(cat <<-'EOF'
	        JABBERWOCKY

	'Twas brillig, and the slithy toves
	 Did gyre and gimble in the wabe;
	All mimsy were the borogoves,
	 And the mome raths outgrabe.

	'Beware the Jabberwock, my son!
	 The jaws that bite, the claws that catch!
	Beware the Jubjub bird, and shun
	 The frumious Bandersnatch!'

	He took his vorpal sword in hand:
	 Long time the manxome foe he sought--
	So rested he by the Tumtum tree,
	 And stood awhile in thought.

	And as in uffish thought he stood,
	 The Jabberwock, with eyes of flame,
	Came whiffling through the tulgey wood,
	 And burbled as it came!

	One, two! One, two! And through and through
	 The vorpal blade went snicker-snack!
	He left it dead, and with its head
	 He went galumphing back.

	'And hast thou slain the Jabberwock?
	 Come to my arms, my beamish boy!
	O frabjous day! Callooh! Callay!'
	 He chortled in his joy.

	'Twas brillig, and the slithy toves
	 Did gyre and gimble in the wabe;
	All mimsy were the borogoves,
	 And the mome raths outgrabe.
	EOF
	)"
POEM_BAD="$(cat <<-'EOF'
	        YKCOWREBBAJ

	sevot yhtils eht dna,gillirb sawT’
	 ebaw eht ni elbmig dna eryg diD
	   ,sevogorob eht erew ysmim llA
	  .ebargtuo shtar emom eht dnA
	EOF
	)"
for datadir_pkgverdir in 'foo/foo' 'foo_1.0/foo_1.0' 'foo_1./foo_1.*'; do
	IFS='/' read datadir pkgverdir <<-EOF
		${datadir_pkgverdir}
		EOF
	datadir="${TOP_BUILDDIR}/tests/data.build/platconf_${datadir}"
	mkdir -p "${datadir}/platconf/x60/${pkgverdir}"
	printf '%s' "${POEM_GOOD}" 1>"${datadir}/platconf/x60/${pkgverdir}/poem"
done
for datadir_pkgverdir in 'foo/bar' 'foo_1.0/foo_2.0' 'foo_1./foo_1.1'; do
	IFS='/' read datadir pkgverdir <<-EOF
		${datadir_pkgverdir}
		EOF
	datadir="${TOP_BUILDDIR}/tests/data.build/platconf_${datadir}"
	mkdir -p "${datadir}/platconf/x60/${pkgverdir}"
	printf '%s' "${POEM_BAD}" 1>"${datadir}/platconf/x60/${pkgverdir}/poem"
done