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