xref: /vim-8.2.3635/src/testdir/test_blob.vim (revision 577fadfc) 
1" Tests for the Blob types
2
3func TearDown()
4  " Run garbage collection after every test
5  call test_garbagecollect_now()
6endfunc
7
8" Tests for Blob type
9
10" Blob creation from constant
11func Test_blob_create()
12  let b = 0zDEADBEEF
13  call assert_equal(v:t_blob, type(b))
14  call assert_equal(4, len(b))
15  call assert_equal(0xDE, b[0])
16  call assert_equal(0xAD, b[1])
17  call assert_equal(0xBE, b[2])
18  call assert_equal(0xEF, b[3])
19  call assert_fails('let x = b[4]')
20
21  call assert_equal(0xDE, get(b, 0))
22  call assert_equal(0xEF, get(b, 3))
23
24  call assert_fails('let b = 0z1', 'E973:')
25  call assert_fails('let b = 0z1x', 'E973:')
26  call assert_fails('let b = 0z12345', 'E973:')
27
28  call assert_equal(0z, test_null_blob())
29
30  let b = 0z001122.33445566.778899.aabbcc.dd
31  call assert_equal(0z00112233445566778899aabbccdd, b)
32  call assert_fails('let b = 0z1.1')
33  call assert_fails('let b = 0z.')
34  call assert_fails('let b = 0z001122.')
35  call assert_fails('call get("", 1)', 'E896:')
36endfunc
37
38" assignment to a blob
39func Test_blob_assign()
40  let b = 0zDEADBEEF
41  let b2 = b[1:2]
42  call assert_equal(0zADBE, b2)
43
44  let bcopy = b[:]
45  call assert_equal(b, bcopy)
46  call assert_false(b is bcopy)
47
48  let b = 0zDEADBEEF
49  let b2 = b
50  call assert_true(b is b2)
51  let b[:] = 0z11223344
52  call assert_equal(0z11223344, b)
53  call assert_equal(0z11223344, b2)
54  call assert_true(b is b2)
55
56  let b = 0zDEADBEEF
57  let b[3:] = 0z66
58  call assert_equal(0zDEADBE66, b)
59  let b[:1] = 0z8899
60  call assert_equal(0z8899BE66, b)
61
62  call assert_fails('let b[2:3] = 0z112233', 'E972:')
63  call assert_fails('let b[2:3] = 0z11', 'E972:')
64  call assert_fails('let b[3:2] = 0z', 'E979:')
65
66  let b = 0zDEADBEEF
67  let b += 0z99
68  call assert_equal(0zDEADBEEF99, b)
69
70  call assert_fails('let b .= 0z33', 'E734:')
71  call assert_fails('let b .= "xx"', 'E734:')
72  call assert_fails('let b += "xx"', 'E734:')
73  call assert_fails('let b[1:1] .= 0z55', 'E734:')
74endfunc
75
76func Test_blob_get_range()
77  let b = 0z0011223344
78  call assert_equal(0z2233, b[2:3])
79  call assert_equal(0z223344, b[2:-1])
80  call assert_equal(0z00, b[0:-5])
81  call assert_equal(0z, b[0:-11])
82  call assert_equal(0z44, b[-1:])
83  call assert_equal(0z0011223344, b[:])
84  call assert_equal(0z0011223344, b[:-1])
85  call assert_equal(0z, b[5:6])
86endfunc
87
88func Test_blob_get()
89  let b = 0z0011223344
90  call assert_equal(0x00, get(b, 0))
91  call assert_equal(0x22, get(b, 2, 999))
92  call assert_equal(0x44, get(b, 4))
93  call assert_equal(0x44, get(b, -1))
94  call assert_equal(-1, get(b, 5))
95  call assert_equal(999, get(b, 5, 999))
96  call assert_equal(-1, get(b, -8))
97  call assert_equal(999, get(b, -8, 999))
98
99  call assert_equal(0x00, b[0])
100  call assert_equal(0x22, b[2])
101  call assert_equal(0x44, b[4])
102  call assert_equal(0x44, b[-1])
103  call assert_fails('echo b[5]', 'E979:')
104  call assert_fails('echo b[-8]', 'E979:')
105endfunc
106
107func Test_blob_to_string()
108  let b = 0z00112233445566778899aabbccdd
109  call assert_equal('0z00112233.44556677.8899AABB.CCDD', string(b))
110  call assert_equal(b, eval(string(b)))
111  call remove(b, 4, -1)
112  call assert_equal('0z00112233', string(b))
113  call remove(b, 0, 3)
114  call assert_equal('0z', string(b))
115endfunc
116
117func Test_blob_compare()
118  let b1 = 0z0011
119  let b2 = 0z1100
120  let b3 = 0z001122
121  call assert_true(b1 == b1)
122  call assert_false(b1 == b2)
123  call assert_false(b1 == b3)
124  call assert_true(b1 != b2)
125  call assert_true(b1 != b3)
126  call assert_true(b1 == 0z0011)
127  call assert_fails('echo b1 == 9', 'E977:')
128  call assert_fails('echo b1 != 9', 'E977:')
129
130  call assert_false(b1 is b2)
131  let b2 = b1
132  call assert_true(b1 == b2)
133  call assert_true(b1 is b2)
134  let b2 = copy(b1)
135  call assert_true(b1 == b2)
136  call assert_false(b1 is b2)
137  let b2 = b1[:]
138  call assert_true(b1 == b2)
139  call assert_false(b1 is b2)
140
141  call assert_fails('let x = b1 > b2')
142  call assert_fails('let x = b1 < b2')
143  call assert_fails('let x = b1 - b2')
144  call assert_fails('let x = b1 / b2')
145  call assert_fails('let x = b1 * b2')
146endfunc
147
148" test for range assign
149func Test_blob_range_assign()
150  let b = 0z00
151  let b[1] = 0x11
152  let b[2] = 0x22
153  call assert_equal(0z001122, b)
154  call assert_fails('let b[4] = 0x33', 'E979:')
155endfunc
156
157func Test_blob_for_loop()
158  let blob = 0z00010203
159  let i = 0
160  for byte in blob
161    call assert_equal(i, byte)
162    let i += 1
163  endfor
164    call assert_equal(4, i)
165
166  let blob = 0z00
167  call remove(blob, 0)
168  call assert_equal(0, len(blob))
169  for byte in blob
170    call assert_error('loop over empty blob')
171  endfor
172
173  let blob = 0z0001020304
174  let i = 0
175  for byte in blob
176    call assert_equal(i, byte)
177    if i == 1
178      call remove(blob, 0)
179    elseif i == 3
180      call remove(blob, 3)
181    endif
182    let i += 1
183  endfor
184  call assert_equal(5, i)
185endfunc
186
187func Test_blob_concatenate()
188  let b = 0z0011
189  let b += 0z2233
190  call assert_equal(0z00112233, b)
191
192  call assert_fails('let b += "a"')
193  call assert_fails('let b += 88')
194
195  let b = 0zDEAD + 0zBEEF
196  call assert_equal(0zDEADBEEF, b)
197endfunc
198
199func Test_blob_add()
200  let b = 0z0011
201  call add(b, 0x22)
202  call assert_equal(0z001122, b)
203  call add(b, '51')
204  call assert_equal(0z00112233, b)
205
206  call assert_fails('call add(b, [9])', 'E745:')
207  call assert_fails('call add("", 0x01)', 'E897:')
208endfunc
209
210func Test_blob_empty()
211  call assert_false(empty(0z001122))
212  call assert_true(empty(0z))
213  call assert_true(empty(test_null_blob()))
214endfunc
215
216" Test removing items in blob
217func Test_blob_func_remove()
218  " Test removing 1 element
219  let b = 0zDEADBEEF
220  call assert_equal(0xDE, remove(b, 0))
221  call assert_equal(0zADBEEF, b)
222
223  let b = 0zDEADBEEF
224  call assert_equal(0xEF, remove(b, -1))
225  call assert_equal(0zDEADBE, b)
226
227  let b = 0zDEADBEEF
228  call assert_equal(0xAD, remove(b, 1))
229  call assert_equal(0zDEBEEF, b)
230
231  " Test removing range of element(s)
232  let b = 0zDEADBEEF
233  call assert_equal(0zBE, remove(b, 2, 2))
234  call assert_equal(0zDEADEF, b)
235
236  let b = 0zDEADBEEF
237  call assert_equal(0zADBE, remove(b, 1, 2))
238  call assert_equal(0zDEEF, b)
239
240  " Test invalid cases
241  let b = 0zDEADBEEF
242  call assert_fails("call remove(b, 5)", 'E979:')
243  call assert_fails("call remove(b, 1, 5)", 'E979:')
244  call assert_fails("call remove(b, 3, 2)", 'E979:')
245  call assert_fails("call remove(1, 0)", 'E896:')
246  call assert_fails("call remove(b, b)", 'E974:')
247endfunc
248
249func Test_blob_read_write()
250  let b = 0zDEADBEEF
251  call writefile(b, 'Xblob')
252  let br = readfile('Xblob', 'B')
253  call assert_equal(b, br)
254  call delete('Xblob')
255endfunc
256
257" filter() item in blob
258func Test_blob_filter()
259  let b = 0zDEADBEEF
260  call filter(b, 'v:val != 0xEF')
261  call assert_equal(0zDEADBE, b)
262endfunc
263
264" map() item in blob
265func Test_blob_map()
266  let b = 0zDEADBEEF
267  call map(b, 'v:val + 1')
268  call assert_equal(0zDFAEBFF0, b)
269
270  call assert_fails("call map(b, '[9]')", 'E978:')
271endfunc
272
273func Test_blob_index()
274  call assert_equal(2, index(0zDEADBEEF, 0xBE))
275  call assert_equal(-1, index(0zDEADBEEF, 0))
276  call assert_equal(2, index(0z11111111, 0x11, 2))
277  call assert_equal(3, index(0z11110111, 0x11, 2))
278  call assert_equal(2, index(0z11111111, 0x11, -2))
279  call assert_equal(3, index(0z11110111, 0x11, -2))
280
281  call assert_fails('call index("asdf", 0)', 'E897:')
282endfunc
283
284func Test_blob_insert()
285  let b = 0zDEADBEEF
286  call insert(b, 0x33)
287  call assert_equal(0z33DEADBEEF, b)
288
289  let b = 0zDEADBEEF
290  call insert(b, 0x33, 2)
291  call assert_equal(0zDEAD33BEEF, b)
292
293  call assert_fails('call insert(b, -1)', 'E475:')
294  call assert_fails('call insert(b, 257)', 'E475:')
295  call assert_fails('call insert(b, 0, [9])', 'E745:')
296endfunc
297
298func Test_blob_reverse()
299  call assert_equal(0zEFBEADDE, reverse(0zDEADBEEF))
300  call assert_equal(0zBEADDE, reverse(0zDEADBE))
301  call assert_equal(0zADDE, reverse(0zDEAD))
302  call assert_equal(0zDE, reverse(0zDE))
303endfunc
304
305func Test_blob_json_encode()
306  call assert_equal('[222,173,190,239]', json_encode(0zDEADBEEF))
307  call assert_equal('[]', json_encode(0z))
308endfunc
309
310func Test_blob_lock()
311  let b = 0z112233
312  lockvar b
313  call assert_fails('let b = 0z44', 'E741:')
314  unlockvar b
315  let b = 0z44
316endfunc
317
318func Test_blob_sort()
319  call assert_fails('call sort([1.0, 0z11], "f")', 'E975:')
320endfunc
321