blob: db49d9c4c6889aaf1a3aad2891a6ff33c338f0c7 (
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
181
182
183
184
185
186
187
188
189
190
|
#! /bin/sh
. $(realpath $(dirname $0))/common.sh
. ${SCRIPTPREFIX}/include/util.sh
. ${SCRIPTPREFIX}/include/hash.sh
assert_list() {
local expected="${1}"
local reason="${2}"
local have_tmp=$(mktemp -t assert_list)
local expected_tmp=$(mktemp -t assert_list)
local ret=0
echo "${LIST}" | tr ' ' '\n' | sort | sed -e '/^$/d' > "${have_tmp}"
echo "${expected}" | tr ' ' '\n' | sort | sed -e '/^$/d' > \
"${expected_tmp}"
cmp -s "${have_tmp}" "${expected_tmp}" || ret=$?
[ ${ret} -ne 0 ] && comm "${have_tmp}" "${expected_tmp}" >&2
rm -f "${have_tmp}" "${expected_tmp}"
assert 0 "${ret}" "${reason} - Have: '${LIST}' Expected: '${expected}'"
}
LIST=
assert_list "" "Empty list expected"
list_add LIST 01
assert_list "01" "Expected 01"
list_add LIST 01
assert_list "01" "Expected 01 after ading duplicate"
# Don't really care about excess spaces
assert_list " 01 " "Expected 01, spaces"
list_remove LIST 01
assert_list "" "Empty list expected after removing 01"
list_add LIST 02
assert_list "02" "Expected 02"
list_add LIST 01
assert_list "02 01" "Expected 01 02"
list_add LIST 03
assert_list "02 01 03" "Expected 01 02 03"
# Remove the middle
list_remove LIST 01
assert_list "02 03" "02 03 expected after removing 01"
# Remove something not there. This one used to be surprisingly problematic.
list_remove LIST 99
assert_list "02 03" "02 03 expected after removing nonexistent 99"
# Add back in a duplicate and remove it
list_add LIST 03
assert_list "02 03" "Expected 02 03 after adding 03 duplicate"
list_remove LIST 03
assert_list "02" "02 expected after removing 03"
# Reset so we can test removing the left
LIST=
list_add LIST 01
list_add LIST 02
list_add LIST 03
assert_list "01 02 03" "Expected 01 02 03 - left"
list_remove LIST 01
assert_list "02 03" "Expected 02 03 - left"
list_remove LIST 02
assert_list "03" "Expected 03 - left"
list_remove LIST 03
assert_list "" "Expected empty - left"
# Reset so we can test removing the right
LIST=
list_add LIST 01
assert_ret 0 list_contains LIST 01
assert_ret 1 list_contains LIST 02
assert_ret 1 list_contains LIST 03
list_add LIST 02
assert_ret 0 list_contains LIST 01
assert_ret 0 list_contains LIST 02
assert_ret 1 list_contains LIST 03
list_add LIST 03
assert_ret 0 list_contains LIST 01
assert_ret 0 list_contains LIST 02
assert_ret 0 list_contains LIST 03
assert_list "01 02 03" "Expected 01 02 03 - right"
list_remove LIST 03
assert_list "01 02" "Expected 01 02 - right"
assert_ret 0 list_contains LIST 01
assert_ret 0 list_contains LIST 02
assert_ret 1 list_contains LIST 03
list_remove LIST 02
assert_list "01" "Expected 01 - right"
assert_ret 0 list_contains LIST 01
assert_ret 1 list_contains LIST 02
assert_ret 1 list_contains LIST 03
list_remove LIST 02
assert_list "01" "Expected 01 - right"
assert_ret 0 list_contains LIST 01
assert_ret 1 list_contains LIST 02
assert_ret 1 list_contains LIST 03
list_remove LIST 01
assert_list "" "Expected blank - right"
assert_ret 1 list_contains LIST 01
assert_ret 1 list_contains LIST 02
assert_ret 1 list_contains LIST 03
# Test eval parsing
LIST=
list_add LIST 01
list_add LIST "02;"
list_add LIST "03"
list_remove LIST 03
assert_list "01 02;" "Parsing error"
# Test subst parsing
LIST=
list_add LIST 01
list_add LIST "0*"
assert_list "01 0*"
list_add LIST "/*"
assert_list "01 0* /*"
list_remove LIST "0*"
assert_list "01 /*"
list_remove LIST "/*"
assert_list "01"
# Test removing of duplicates causing duplicate items of unremoved
LIST="01 02 03 04 03 "
list_remove LIST 03
assert_list "01 02 03 04"
# Test a copool case
LIST=
assert_ret 0 list_add LIST 31230
assert_ret 0 list_add LIST 31237
assert_ret 0 list_add LIST 31247
assert_ret 0 list_add LIST 31258
assert_ret 0 list_add LIST 31267
assert_ret 0 list_add LIST 31276
assert_ret 0 list_add LIST 31286
assert_ret 0 list_add LIST 31299
assert_ret 0 list_add LIST 31308
assert_ret 0 list_add LIST 31317
assert_ret 0 list_add LIST 31326
assert_ret 0 list_add LIST 31338
assert_ret 0 list_add LIST 31354
assert_ret 0 list_add LIST 31367
assert_ret 0 list_add LIST 31382
assert_ret 0 list_add LIST 31395
assert_ret 0 list_add LIST 31407
assert_ret 0 list_add LIST 31415
assert_ret 0 list_add LIST 31429
assert_ret 0 list_add LIST 31442
assert_list "31230 31237 31247 31258 31267 31276 31286 31299 31308 31317 31326 31338 31354 31367 31382 31395 31407 31415 31429 31442"
assert_ret 0 list_remove LIST 31367
assert_ret 0 list_remove LIST 31382
assert_ret 0 list_remove LIST 31395
assert_ret 0 list_remove LIST 31407
assert_ret 0 list_remove LIST 31415
assert_ret 0 list_remove LIST 31429
assert_ret 0 list_remove LIST 31442
assert_ret 0 list_remove LIST 31230
assert_ret 0 list_remove LIST 31237
assert_ret 0 list_remove LIST 31247
assert_ret 0 list_remove LIST 31258
assert_ret 0 list_remove LIST 31267
assert_ret 0 list_remove LIST 31276
assert_ret 0 list_remove LIST 31286
assert_ret 0 list_remove LIST 31299
assert_ret 0 list_remove LIST 31308
assert_ret 0 list_remove LIST 31317
assert_ret 0 list_remove LIST 31326
assert_ret 0 list_remove LIST 31338
assert_ret 1 list_remove LIST 31367
assert_list "31354"
|
