blob: 27db133bab57c0d4aa7799867b3e8ee2b401f8d1 (
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
|
# Common testsuite functions
#
# Copyright (C) 2019 Patrick McDermott
#
# This file is part of the ProteanOS Development Kit.
#
# The ProteanOS Development Kit 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.
#
# The ProteanOS Development Kit 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 the ProteanOS Development Kit. If not, see
# <http://www.gnu.org/licenses/>.
LF='
'
# is_diff() is based on cmd_is() from opkbuild 4.0.2, with test results passed
# by argument and context added to the diagnostic output.
is_diff()
{
local description="${1}"
local got="${2}"
local exp="${3}"
shift 3
local ok=
local diag=
local eof=
ok=true
diag=''
exec 3<<-EOF
${got}
EOF
exec 4<<-EOF
${exp}
EOF
while :; do
eof=0
read -r got 0<&3 || eof=$((${eof} + 1))
read -r exp 0<&4 || eof=$((${eof} + 2))
[ ${eof} -eq 3 ] && break
if [ x"${got}" = x"${exp}" ]; then
diag="${diag} '${got}'${LF}"
else
ok=false
diag="${diag} got: '${got}'${LF}"
diag="${diag} expected: '${exp}'${LF}"
fi
done
exec 3<&-
exec 4<&-
if ${ok}; then
ok_ -- "${description}"
else
not_ok_ -- "${description}"
diag_ " Failed test '${description}'"
while IFS='' read -r diag; do
diag_ "${diag}"
done <<-EOF
${diag}
EOF
fi
}
|
