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:') 36 call assert_equal(0, len(test_null_blob())) 37endfunc 38 39" assignment to a blob 40func Test_blob_assign() 41 let b = 0zDEADBEEF 42 let b2 = b[1:2] 43 call assert_equal(0zADBE, b2) 44 45 let bcopy = b[:] 46 call assert_equal(b, bcopy) 47 call assert_false(b is bcopy) 48 49 let b = 0zDEADBEEF 50 let b2 = b 51 call assert_true(b is b2) 52 let b[:] = 0z11223344 53 call assert_equal(0z11223344, b) 54 call assert_equal(0z11223344, b2) 55 call assert_true(b is b2) 56 57 let b = 0zDEADBEEF 58 let b[3:] = 0z66 59 call assert_equal(0zDEADBE66, b) 60 let b[:1] = 0z8899 61 call assert_equal(0z8899BE66, b) 62 63 call assert_fails('let b[2:3] = 0z112233', 'E972:') 64 call assert_fails('let b[2:3] = 0z11', 'E972:') 65 call assert_fails('let b[3:2] = 0z', 'E979:') 66 67 let b = 0zDEADBEEF 68 let b += 0z99 69 call assert_equal(0zDEADBEEF99, b) 70 71 call assert_fails('let b .= 0z33', 'E734:') 72 call assert_fails('let b .= "xx"', 'E734:') 73 call assert_fails('let b += "xx"', 'E734:') 74 call assert_fails('let b[1:1] .= 0z55', 'E734:') 75 76 let l = [0z12] 77 let m = deepcopy(l) 78 let m[0] = 0z34 " E742 or E741 should not occur. 79endfunc 80 81func Test_blob_get_range() 82 let b = 0z0011223344 83 call assert_equal(0z2233, b[2:3]) 84 call assert_equal(0z223344, b[2:-1]) 85 call assert_equal(0z00, b[0:-5]) 86 call assert_equal(0z, b[0:-11]) 87 call assert_equal(0z44, b[-1:]) 88 call assert_equal(0z0011223344, b[:]) 89 call assert_equal(0z0011223344, b[:-1]) 90 call assert_equal(0z, b[5:6]) 91 call assert_equal(0z0011, b[-10:1]) 92endfunc 93 94func Test_blob_get() 95 let b = 0z0011223344 96 call assert_equal(0x00, get(b, 0)) 97 call assert_equal(0x22, get(b, 2, 999)) 98 call assert_equal(0x44, get(b, 4)) 99 call assert_equal(0x44, get(b, -1)) 100 call assert_equal(-1, get(b, 5)) 101 call assert_equal(999, get(b, 5, 999)) 102 call assert_equal(-1, get(b, -8)) 103 call assert_equal(999, get(b, -8, 999)) 104 call assert_equal(10, get(test_null_blob(), 2, 10)) 105 106 call assert_equal(0x00, b[0]) 107 call assert_equal(0x22, b[2]) 108 call assert_equal(0x44, b[4]) 109 call assert_equal(0x44, b[-1]) 110 call assert_fails('echo b[5]', 'E979:') 111 call assert_fails('echo b[-8]', 'E979:') 112endfunc 113 114func Test_blob_to_string() 115 let b = 0z00112233445566778899aabbccdd 116 call assert_equal('0z00112233.44556677.8899AABB.CCDD', string(b)) 117 call assert_equal(b, eval(string(b))) 118 call remove(b, 4, -1) 119 call assert_equal('0z00112233', string(b)) 120 call remove(b, 0, 3) 121 call assert_equal('0z', string(b)) 122 call assert_equal('0z', string(test_null_blob())) 123endfunc 124 125func Test_blob_compare() 126 let b1 = 0z0011 127 let b2 = 0z1100 128 let b3 = 0z001122 129 call assert_true(b1 == b1) 130 call assert_false(b1 == b2) 131 call assert_false(b1 == b3) 132 call assert_true(b1 != b2) 133 call assert_true(b1 != b3) 134 call assert_true(b1 == 0z0011) 135 call assert_fails('echo b1 == 9', 'E977:') 136 call assert_fails('echo b1 != 9', 'E977:') 137 138 call assert_false(b1 is b2) 139 let b2 = b1 140 call assert_true(b1 == b2) 141 call assert_true(b1 is b2) 142 let b2 = copy(b1) 143 call assert_true(b1 == b2) 144 call assert_false(b1 is b2) 145 let b2 = b1[:] 146 call assert_true(b1 == b2) 147 call assert_false(b1 is b2) 148 call assert_true(b1 isnot b2) 149 150 call assert_fails('let x = b1 > b2') 151 call assert_fails('let x = b1 < b2') 152 call assert_fails('let x = b1 - b2') 153 call assert_fails('let x = b1 / b2') 154 call assert_fails('let x = b1 * b2') 155endfunc 156 157" test for range assign 158func Test_blob_range_assign() 159 let b = 0z00 160 let b[1] = 0x11 161 let b[2] = 0x22 162 call assert_equal(0z001122, b) 163 call assert_fails('let b[4] = 0x33', 'E979:') 164endfunc 165 166func Test_blob_for_loop() 167 let blob = 0z00010203 168 let i = 0 169 for byte in blob 170 call assert_equal(i, byte) 171 let i += 1 172 endfor 173 call assert_equal(4, i) 174 175 let blob = 0z00 176 call remove(blob, 0) 177 call assert_equal(0, len(blob)) 178 for byte in blob 179 call assert_error('loop over empty blob') 180 endfor 181 182 let blob = 0z0001020304 183 let i = 0 184 for byte in blob 185 call assert_equal(i, byte) 186 if i == 1 187 call remove(blob, 0) 188 elseif i == 3 189 call remove(blob, 3) 190 endif 191 let i += 1 192 endfor 193 call assert_equal(5, i) 194endfunc 195 196func Test_blob_concatenate() 197 let b = 0z0011 198 let b += 0z2233 199 call assert_equal(0z00112233, b) 200 201 call assert_fails('let b += "a"') 202 call assert_fails('let b += 88') 203 204 let b = 0zDEAD + 0zBEEF 205 call assert_equal(0zDEADBEEF, b) 206endfunc 207 208func Test_blob_add() 209 let b = 0z0011 210 call add(b, 0x22) 211 call assert_equal(0z001122, b) 212 call add(b, '51') 213 call assert_equal(0z00112233, b) 214 call assert_equal(1, add(test_null_blob(), 0x22)) 215 216 call assert_fails('call add(b, [9])', 'E745:') 217 call assert_fails('call add("", 0x01)', 'E897:') 218endfunc 219 220func Test_blob_empty() 221 call assert_false(empty(0z001122)) 222 call assert_true(empty(0z)) 223 call assert_true(empty(test_null_blob())) 224endfunc 225 226" Test removing items in blob 227func Test_blob_func_remove() 228 " Test removing 1 element 229 let b = 0zDEADBEEF 230 call assert_equal(0xDE, remove(b, 0)) 231 call assert_equal(0zADBEEF, b) 232 233 let b = 0zDEADBEEF 234 call assert_equal(0xEF, remove(b, -1)) 235 call assert_equal(0zDEADBE, b) 236 237 let b = 0zDEADBEEF 238 call assert_equal(0xAD, remove(b, 1)) 239 call assert_equal(0zDEBEEF, b) 240 241 " Test removing range of element(s) 242 let b = 0zDEADBEEF 243 call assert_equal(0zBE, remove(b, 2, 2)) 244 call assert_equal(0zDEADEF, b) 245 246 let b = 0zDEADBEEF 247 call assert_equal(0zADBE, remove(b, 1, 2)) 248 call assert_equal(0zDEEF, b) 249 250 " Test invalid cases 251 let b = 0zDEADBEEF 252 call assert_fails("call remove(b, 5)", 'E979:') 253 call assert_fails("call remove(b, 1, 5)", 'E979:') 254 call assert_fails("call remove(b, 3, 2)", 'E979:') 255 call assert_fails("call remove(1, 0)", 'E896:') 256 call assert_fails("call remove(b, b)", 'E974:') 257 call assert_fails("call remove(b, 1, [])", 'E745:') 258 call assert_fails("call remove(test_null_blob(), 1, 2)", 'E979:') 259endfunc 260 261func Test_blob_read_write() 262 let b = 0zDEADBEEF 263 call writefile(b, 'Xblob') 264 let br = readfile('Xblob', 'B') 265 call assert_equal(b, br) 266 call delete('Xblob') 267 268 " This was crashing when calling readfile() with a directory. 269 call assert_fails("call readfile('.', 'B')", 'E17: "." is a directory') 270endfunc 271 272" filter() item in blob 273func Test_blob_filter() 274 call assert_equal(0z, filter(0zDEADBEEF, '0')) 275 call assert_equal(0zADBEEF, filter(0zDEADBEEF, 'v:val != 0xDE')) 276 call assert_equal(0zDEADEF, filter(0zDEADBEEF, 'v:val != 0xBE')) 277 call assert_equal(0zDEADBE, filter(0zDEADBEEF, 'v:val != 0xEF')) 278 call assert_equal(0zDEADBEEF, filter(0zDEADBEEF, '1')) 279 call assert_equal(0z01030103, filter(0z010203010203, 'v:val != 0x02')) 280 call assert_equal(0zADEF, filter(0zDEADBEEF, 'v:key % 2')) 281endfunc 282 283" map() item in blob 284func Test_blob_map() 285 call assert_equal(0zDFAEBFF0, map(0zDEADBEEF, 'v:val + 1')) 286 call assert_equal(0z00010203, map(0zDEADBEEF, 'v:key')) 287 call assert_equal(0zDEAEC0F2, map(0zDEADBEEF, 'v:key + v:val')) 288 289 call assert_fails("call map(0z00, '[9]')", 'E978:') 290endfunc 291 292func Test_blob_index() 293 call assert_equal(2, index(0zDEADBEEF, 0xBE)) 294 call assert_equal(-1, index(0zDEADBEEF, 0)) 295 call assert_equal(2, index(0z11111111, 0x11, 2)) 296 call assert_equal(3, 0z11110111->index(0x11, 2)) 297 call assert_equal(2, index(0z11111111, 0x11, -2)) 298 call assert_equal(3, index(0z11110111, 0x11, -2)) 299 call assert_equal(0, index(0z11110111, 0x11, -10)) 300 call assert_fails("echo index(0z11110111, 0x11, [])", 'E745:') 301 call assert_equal(-1, index(test_null_blob(), 1)) 302 303 call assert_fails('call index("asdf", 0)', 'E897:') 304endfunc 305 306func Test_blob_insert() 307 let b = 0zDEADBEEF 308 call insert(b, 0x33) 309 call assert_equal(0z33DEADBEEF, b) 310 311 let b = 0zDEADBEEF 312 call insert(b, 0x33, 2) 313 call assert_equal(0zDEAD33BEEF, b) 314 315 call assert_fails('call insert(b, -1)', 'E475:') 316 call assert_fails('call insert(b, 257)', 'E475:') 317 call assert_fails('call insert(b, 0, [9])', 'E745:') 318 call assert_fails('call insert(b, 0, -20)', 'E475:') 319 call assert_fails('call insert(b, 0, 20)', 'E475:') 320 call assert_fails('call insert(b, [])', 'E745:') 321 call assert_equal(0, insert(test_null_blob(), 0x33)) 322endfunc 323 324func Test_blob_reverse() 325 call assert_equal(0zEFBEADDE, reverse(0zDEADBEEF)) 326 call assert_equal(0zBEADDE, reverse(0zDEADBE)) 327 call assert_equal(0zADDE, reverse(0zDEAD)) 328 call assert_equal(0zDE, reverse(0zDE)) 329 call assert_equal(0z, reverse(test_null_blob())) 330endfunc 331 332func Test_blob_json_encode() 333 call assert_equal('[222,173,190,239]', json_encode(0zDEADBEEF)) 334 call assert_equal('[]', json_encode(0z)) 335endfunc 336 337func Test_blob_lock() 338 let b = 0z112233 339 lockvar b 340 call assert_fails('let b = 0z44', 'E741:') 341 unlockvar b 342 let b = 0z44 343endfunc 344 345func Test_blob_sort() 346 if has('float') 347 call assert_fails('call sort([1.0, 0z11], "f")', 'E975:') 348 else 349 call assert_fails('call sort(["abc", 0z11], "f")', 'E702:') 350 endif 351endfunc 352 353" vim: shiftwidth=2 sts=2 expandtab 354