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
|
# test/more.bash - Complete TAP test framework for Bash
#
# Copyright (c) 2013-2020. Ingy döt Net.
set -e -u -o pipefail
# shellcheck disable=2034
Test__More_VERSION=0.0.5
source bash+ :std version-check
version-check bash 3.2 ||
die "test-more-bash requires bash 3.2+"
use Test::Tap
Test::More:import() { Test::Tap:init "$@"; }
plan() { Test::Tap:plan "$@"; }
pass() { Test::Tap:pass "$@"; }
fail() { Test::Tap:fail "$@"; }
diag() { Test::Tap:diag "$@"; }
note() { Test::Tap:note "$@"; }
done_testing() { Test::Tap:done_testing "$@"; }
BAIL_OUT() { Test::Tap:BAIL_OUT "$@"; }
BAIL_ON_FAIL() { Test::Tap:BAIL_ON_FAIL "$@"; }
is() {
local got=$1 want=$2 label=${3-}
if [[ $got == "$want" ]]; then
Test::Tap:pass "$label"
else
Test::Tap:fail "$label" Test::More:is-fail
fi
}
Test::More:is-fail() {
local Test__Tap_CALL_STACK_LEVEL=
Test__Tap_CALL_STACK_LEVEL=$(( Test__Tap_CALL_STACK_LEVEL + 1 ))
if [[ $want =~ $'\n' ]]; then
echo "$got" > /tmp/got-$$
echo "$want" > /tmp/want-$$
diff -u /tmp/{want,got}-$$ >&2 || true
wc /tmp/{want,got}-$$ >&2
rm -f /tmp/{got,want}-$$
else
Test::Tap:diag "\
got: '$got'
expected: '$want'"
fi
}
isnt() {
local Test__Tap_CALL_STACK_LEVEL=
Test__Tap_CALL_STACK_LEVEL=$(( Test__Tap_CALL_STACK_LEVEL + 1 ))
local got=$1 dontwant=$2 label=${3-}
if [[ $got != "$dontwant" ]]; then
Test::Tap:pass "$label"
else
Test::Tap:fail "$label" Test::More:isnt-fail
fi
}
Test::More:isnt-fail() {
Test::Tap:diag "\
got: '$got'
expected: anything else"
}
ok() {
if (exit "${1:-$?}"); then
Test::Tap:pass "${2-}"
else
Test::Tap:fail "${2-}"
fi
}
like() {
local got=$1 regex=$2 label=${3-}
if [[ $got =~ $regex ]]; then
Test::Tap:pass "$label"
else
Test::Tap:fail "$label" Test::More:like-fail
fi
}
Test::More:like-fail() {
Test::Tap:diag "Got: '$got'"
}
unlike() {
local got=$1 regex=$2 label=${3-}
if [[ ! $got =~ $regex ]]; then
Test::Tap:pass "$label"
else
Test::Tap:fail "$label" Test::More:unlike-fail
fi
}
Test::More:unlike-fail() {
Test::Tap:diag "Got: '$got'"
}
cmp-array() {
local arrayname="$1[@]"
local expname="$2[@]"
local label=${3-}
local array=("${!arrayname}")
local expected=("${!expname}")
is "$(printf "%s\n" "${array[@]}")" \
"$(printf "%s\n" "${expected[@]}")" \
"$label"
}
|
