1" Test for JSON functions. 2 3let s:json1 = '"str\"in\\g"' 4let s:var1 = "str\"in\\g" 5let s:json2 = '"\u0001\u0002\u0003\u0004\u0005\u0006\u0007"' 6let s:var2 = "\x01\x02\x03\x04\x05\x06\x07" 7let s:json3 = '"\b\t\n\u000b\f\r\u000e\u000f"' 8let s:var3 = "\x08\x09\x0a\x0b\x0c\x0d\x0e\x0f" 9let s:json4 = '"\u0010\u0011\u0012\u0013\u0014\u0015\u0016\u0017"' 10let s:var4 = "\x10\x11\x12\x13\x14\x15\x16\x17" 11let s:json5 = '"\u0018\u0019\u001a\u001b\u001c\u001d\u001e\u001f"' 12let s:var5 = "\x18\x19\x1a\x1b\x1c\x1d\x1e\x1f" 13 14" surrogate pair 15let s:jsonsp1 = '"\ud83c\udf63"' 16let s:varsp1 = "\xf0\x9f\x8d\xa3" 17let s:jsonsp2 = '"\ud83c\u00a0"' 18let s:varsp2 = "\ud83c\u00a0" 19 20let s:jsonmb = '"s¢cĴgё"' 21let s:varmb = "s¢cĴgё" 22let s:jsonnr = '1234' 23let s:varnr = 1234 24if has('float') 25 let s:jsonfl = '12.34' 26 let s:varfl = 12.34 27 let s:jsonneginf = '-Infinity' 28 let s:jsonposinf = 'Infinity' 29 let s:varneginf = -1.0 / 0.0 30 let s:varposinf = 1.0 / 0.0 31 let s:jsonnan = 'NaN' 32 let s:varnan = 0.0 / 0.0 33endif 34 35let s:jsonl1 = '[1,"a",3]' 36let s:varl1 = [1, "a", 3] 37let s:jsonl2 = '[1,["a",[],"c"],3]' 38let s:jsonl2s = " [\r1 , [ \"a\" , [ ] , \"c\" ] , 3\<Tab>]\r\n" 39let s:varl2 = [1, 2, 3] 40let l2 = ['a', s:varl2, 'c'] 41let s:varl2[1] = l2 42let s:varl2x = [1, ["a", [], "c"], 3] 43let s:jsonl3 = '[[1,2],[1,2]]' 44let l3 = [1, 2] 45let s:varl3 = [l3, l3] 46 47let s:jsond1 = '{"a":1,"b":"bee","c":[1,2]}' 48let s:jsd1 = '{a:1,b:"bee",c:[1,2]}' 49let s:vard1 = {"a": 1, "b": "bee","c": [1,2]} 50let s:jsond2 = '{"1":1,"2":{"a":"aa","b":{},"c":"cc"},"3":3}' 51let s:jsd2 = '{"1":1,"2":{a:"aa",b:{},c:"cc"},"3":3}' 52let s:jsond2s = " { \"1\" : 1 , \"2\" :\n{ \"a\"\r: \"aa\" , \"b\" : {\<Tab>} , \"c\" : \"cc\" } , \"3\" : 3 }\r\n" 53let s:jsd2s = " { \"1\" : 1 , \"2\" :\n{ a\r: \"aa\" , b : {\<Tab>} , c : \"cc\" } , \"3\" : 3 }\r\n" 54let s:vard2 = {"1": 1, "2": 2, "3": 3} 55let d2 = {"a": "aa", "b": s:vard2, "c": "cc"} 56let s:vard2["2"] = d2 57let s:vard2x = {"1": 1, "2": {"a": "aa", "b": {}, "c": "cc"}, "3": 3} 58let d3 = {"a": 1, "b": 2} 59let s:vard3 = {"x": d3, "y": d3} 60let s:jsond3 = '{"x":{"a":1,"b":2},"y":{"a":1,"b":2}}' 61let s:jsd3 = '{x:{a:1,b:2},y:{a:1,b:2}}' 62let s:vard4 = {"key": v:none} 63let s:vard4x = {"key": v:null} 64let s:jsond4 = '{"key":null}' 65let s:jsd4 = '{key:null}' " js_encode puts no quotes around simple key. 66let s:vard5 = {"key!": v:none} 67let s:vard5x = {"key!": v:null} 68let s:jsond5 = '{"key!":null}' 69let s:jsd5 = '{"key!":null}' " js_encode puts quotes around non-simple key. 70 71let s:jsonvals = '[true,false,null,null]' 72let s:varvals = [v:true, v:false, v:null, v:null] 73 74func Test_json_encode() 75 call assert_equal(s:json1, json_encode(s:var1)) 76 call assert_equal(s:json2, json_encode(s:var2)) 77 call assert_equal(s:json3, s:var3->json_encode()) 78 call assert_equal(s:json4, json_encode(s:var4)) 79 call assert_equal(s:json5, json_encode(s:var5)) 80 81 call assert_equal(s:jsonmb, json_encode(s:varmb)) 82 " no test for surrogate pair, json_encode() doesn't create them. 83 84 call assert_equal(s:jsonnr, json_encode(s:varnr)) 85 if has('float') 86 call assert_equal(s:jsonfl, json_encode(s:varfl)) 87 call assert_equal(s:jsonneginf, json_encode(s:varneginf)) 88 call assert_equal(s:jsonposinf, json_encode(s:varposinf)) 89 call assert_equal(s:jsonnan, json_encode(s:varnan)) 90 endif 91 92 call assert_equal(s:jsonl1, json_encode(s:varl1)) 93 call assert_equal(s:jsonl2, json_encode(s:varl2)) 94 call assert_equal(s:jsonl3, json_encode(s:varl3)) 95 96 call assert_equal(s:jsond1, json_encode(s:vard1)) 97 call assert_equal(s:jsond2, json_encode(s:vard2)) 98 call assert_equal(s:jsond3, json_encode(s:vard3)) 99 call assert_equal(s:jsond4, json_encode(s:vard4)) 100 call assert_equal(s:jsond5, json_encode(s:vard5)) 101 102 call assert_equal(s:jsonvals, json_encode(s:varvals)) 103 104 " JSON is always encoded in utf-8 regardless of 'encoding' value. 105 let save_encoding = &encoding 106 set encoding=latin1 107 call assert_equal('"café"', json_encode("caf\xe9")) 108 let &encoding = save_encoding 109 110 call assert_fails('echo json_encode(function("tr"))', 'E1161: Cannot json encode a func') 111 call assert_fails('echo json_encode([function("tr")])', 'E1161: Cannot json encode a func') 112 113 call assert_equal('{"a":""}', json_encode({'a': test_null_string()})) 114 call assert_equal('{"a":[]}', json_encode({"a": test_null_list()})) 115 call assert_equal('{"a":{}}', json_encode({"a": test_null_dict()})) 116 117 silent! let res = json_encode(function("tr")) 118 call assert_equal("", res) 119endfunc 120 121func Test_json_decode() 122 call assert_equal(s:var1, json_decode(s:json1)) 123 call assert_equal(s:var2, json_decode(s:json2)) 124 call assert_equal(s:var3, s:json3->json_decode()) 125 call assert_equal(s:var4, json_decode(s:json4)) 126 call assert_equal(s:var5, json_decode(s:json5)) 127 128 call assert_equal(s:varmb, json_decode(s:jsonmb)) 129 call assert_equal(s:varsp1, json_decode(s:jsonsp1)) 130 call assert_equal(s:varsp2, json_decode(s:jsonsp2)) 131 132 call assert_equal(s:varnr, json_decode(s:jsonnr)) 133 if has('float') 134 call assert_equal(s:varfl, json_decode(s:jsonfl)) 135 endif 136 137 call assert_equal(s:varl1, json_decode(s:jsonl1)) 138 call assert_equal(s:varl2x, json_decode(s:jsonl2)) 139 call assert_equal(s:varl2x, json_decode(s:jsonl2s)) 140 call assert_equal(s:varl3, json_decode(s:jsonl3)) 141 142 call assert_equal(s:vard1, json_decode(s:jsond1)) 143 call assert_equal(s:vard2x, json_decode(s:jsond2)) 144 call assert_equal(s:vard2x, json_decode(s:jsond2s)) 145 call assert_equal(s:vard3, json_decode(s:jsond3)) 146 call assert_equal(s:vard4x, json_decode(s:jsond4)) 147 call assert_equal(s:vard5x, json_decode(s:jsond5)) 148 149 call assert_equal(s:varvals, json_decode(s:jsonvals)) 150 151 call assert_equal(v:true, json_decode('true')) 152 call assert_equal(type(v:true), type(json_decode('true'))) 153 call assert_equal(v:none, json_decode('')) 154 call assert_equal(type(v:none), type(json_decode(''))) 155 call assert_equal("", json_decode('""')) 156 157 " Character in string after \ is ignored if not special. 158 call assert_equal("x", json_decode('"\x"')) 159 160 " JSON is always encoded in utf-8 regardless of 'encoding' value. 161 let save_encoding = &encoding 162 set encoding=latin1 163 call assert_equal("caf\xe9", json_decode('"café"')) 164 let &encoding = save_encoding 165 166 " empty key is OK 167 call assert_equal({'': 'ok'}, json_decode('{"": "ok"}')) 168 " but not twice 169 call assert_fails("call json_decode('{\"\": \"ok\", \"\": \"bad\"}')", 'E938:') 170 171 call assert_equal({'n': 1}, json_decode('{"n":1,}')) 172 call assert_fails("call json_decode(\"{'n':'1',}\")", 'E491:') 173 call assert_fails("call json_decode(\"'n'\")", 'E491:') 174 175 call assert_fails('call json_decode("\"")', "E491:") 176 call assert_fails('call json_decode("blah")', "E491:") 177 call assert_fails('call json_decode("true blah")', "E488:") 178 call assert_fails('call json_decode("<foobar>")', "E491:") 179 call assert_fails('call json_decode("{\"a\":1,\"a\":2}")', "E938:") 180 181 call assert_fails('call json_decode("{")', "E491:") 182 call assert_fails('call json_decode("{foobar}")', "E491:") 183 call assert_fails('call json_decode("{\"n\",")', "E491:") 184 call assert_fails('call json_decode("{\"n\":")', "E491:") 185 call assert_fails('call json_decode("{\"n\":1")', "E491:") 186 call assert_fails('call json_decode("{\"n\":1,")', "E491:") 187 call assert_fails('call json_decode("{\"n\",1}")', "E491:") 188 call assert_fails('call json_decode("{-}")', "E491:") 189 if has('float') 190 call assert_fails('call json_decode("{3.14:1}")', "E806:") 191 endif 192 193 call assert_fails('call json_decode("[foobar]")', "E491:") 194 call assert_fails('call json_decode("[")', "E491:") 195 call assert_fails('call json_decode("[1")', "E491:") 196 call assert_fails('call json_decode("[1,")', "E491:") 197 call assert_fails('call json_decode("[1 2]")', "E491:") 198 199 call assert_fails('call json_decode("[1,,2]")', "E491:") 200 201 call assert_fails('call json_decode("{{}:42}")', "E491:") 202 call assert_fails('call json_decode("{[]:42}")', "E491:") 203 call assert_fails('call json_decode("{1:1{")', "E491:") 204 205 call assert_fails('call json_decode("-")', "E491:") 206 call assert_fails('call json_decode("-1x")', "E491:") 207 call assert_fails('call json_decode("infinit")', "E491:") 208 209 call assert_fails('call json_decode("\"\\u111Z\"")', 'E491:') 210 call assert_equal('[��]', json_decode('"[\uD83D\uDE02]"')) 211 call assert_equal('a��b', json_decode('"a\uD83D\uDE02b"')) 212 213 call assert_fails('call json_decode("{\"\":{\"\":{")', 'E491:') 214endfunc 215 216let s:jsl5 = '[7,,,]' 217let s:varl5 = [7, v:none, v:none] 218 219func Test_js_encode() 220 call assert_equal(s:json1, js_encode(s:var1)) 221 call assert_equal(s:json2, js_encode(s:var2)) 222 call assert_equal(s:json3, s:var3->js_encode()) 223 call assert_equal(s:json4, js_encode(s:var4)) 224 call assert_equal(s:json5, js_encode(s:var5)) 225 226 call assert_equal(s:jsonmb, js_encode(s:varmb)) 227 " no test for surrogate pair, js_encode() doesn't create them. 228 229 call assert_equal(s:jsonnr, js_encode(s:varnr)) 230 if has('float') 231 call assert_equal(s:jsonfl, js_encode(s:varfl)) 232 call assert_equal(s:jsonneginf, js_encode(s:varneginf)) 233 call assert_equal(s:jsonposinf, js_encode(s:varposinf)) 234 call assert_equal(s:jsonnan, js_encode(s:varnan)) 235 endif 236 237 call assert_equal(s:jsonl1, js_encode(s:varl1)) 238 call assert_equal(s:jsonl2, js_encode(s:varl2)) 239 call assert_equal(s:jsonl3, js_encode(s:varl3)) 240 241 call assert_equal(s:jsd1, js_encode(s:vard1)) 242 call assert_equal(s:jsd2, js_encode(s:vard2)) 243 call assert_equal(s:jsd3, js_encode(s:vard3)) 244 call assert_equal(s:jsd4, js_encode(s:vard4)) 245 call assert_equal(s:jsd5, js_encode(s:vard5)) 246 247 call assert_equal(s:jsonvals, js_encode(s:varvals)) 248 249 call assert_fails('echo js_encode(function("tr"))', 'E1161: Cannot json encode a func') 250 call assert_fails('echo js_encode([function("tr")])', 'E1161: Cannot json encode a func') 251 252 silent! let res = js_encode(function("tr")) 253 call assert_equal("", res) 254 255 call assert_equal(s:jsl5, js_encode(s:varl5)) 256endfunc 257 258func Test_js_decode() 259 call assert_equal(s:var1, js_decode(s:json1)) 260 call assert_equal(s:var2, js_decode(s:json2)) 261 call assert_equal(s:var3, s:json3->js_decode()) 262 call assert_equal(s:var4, js_decode(s:json4)) 263 call assert_equal(s:var5, js_decode(s:json5)) 264 265 call assert_equal(s:varmb, js_decode(s:jsonmb)) 266 call assert_equal(s:varsp1, js_decode(s:jsonsp1)) 267 call assert_equal(s:varsp2, js_decode(s:jsonsp2)) 268 269 call assert_equal(s:varnr, js_decode(s:jsonnr)) 270 if has('float') 271 call assert_equal(s:varfl, js_decode(s:jsonfl)) 272 call assert_equal(s:varneginf, js_decode(s:jsonneginf)) 273 call assert_equal(s:varposinf, js_decode(s:jsonposinf)) 274 call assert_true(isnan(js_decode(s:jsonnan))) 275 endif 276 277 call assert_equal(s:varl1, js_decode(s:jsonl1)) 278 call assert_equal(s:varl2x, js_decode(s:jsonl2)) 279 call assert_equal(s:varl2x, js_decode(s:jsonl2s)) 280 call assert_equal(s:varl3, js_decode(s:jsonl3)) 281 282 call assert_equal(s:vard1, js_decode(s:jsond1)) 283 call assert_equal(s:vard1, js_decode(s:jsd1)) 284 call assert_equal(s:vard2x, js_decode(s:jsond2)) 285 call assert_equal(s:vard2x, js_decode(s:jsd2)) 286 call assert_equal(s:vard2x, js_decode(s:jsond2s)) 287 call assert_equal(s:vard2x, js_decode(s:jsd2s)) 288 call assert_equal(s:vard3, js_decode(s:jsond3)) 289 call assert_equal(s:vard3, js_decode(s:jsd3)) 290 call assert_equal(s:vard4x, js_decode(s:jsond4)) 291 call assert_equal(s:vard4x, js_decode(s:jsd4)) 292 call assert_equal(s:vard5x, js_decode(s:jsond5)) 293 call assert_equal(s:vard5x, js_decode(s:jsd5)) 294 295 call assert_equal(s:varvals, js_decode(s:jsonvals)) 296 297 call assert_equal(v:true, js_decode('true')) 298 call assert_equal(type(v:true), type(js_decode('true'))) 299 call assert_equal(v:none, js_decode('')) 300 call assert_equal(type(v:none), type(js_decode(''))) 301 call assert_equal("", js_decode('""')) 302 call assert_equal("", js_decode("''")) 303 304 call assert_equal('n', js_decode("'n'")) 305 call assert_equal({'n': 1}, js_decode('{"n":1,}')) 306 call assert_equal({'n': '1'}, js_decode("{'n':'1',}")) 307 308 call assert_fails('call js_decode("\"")', "E491:") 309 call assert_fails('call js_decode("blah")', "E491:") 310 call assert_fails('call js_decode("true blah")', "E488:") 311 call assert_fails('call js_decode("<foobar>")', "E491:") 312 313 call assert_fails('call js_decode("{")', "E491:") 314 call assert_fails('call js_decode("{foobar}")', "E491:") 315 call assert_fails('call js_decode("{\"n\",")', "E491:") 316 call assert_fails('call js_decode("{\"n\":")', "E491:") 317 call assert_fails('call js_decode("{\"n\":1")', "E491:") 318 call assert_fails('call js_decode("{\"n\":1,")', "E491:") 319 call assert_fails('call js_decode("{\"n\",1}")', "E491:") 320 call assert_fails('call js_decode("{-}")', "E491:") 321 322 call assert_fails('call js_decode("[foobar]")', "E491:") 323 call assert_fails('call js_decode("[")', "E491:") 324 call assert_fails('call js_decode("[1")', "E491:") 325 call assert_fails('call js_decode("[1,")', "E491:") 326 call assert_fails('call js_decode("[1 2]")', "E491:") 327 328 call assert_equal(s:varl5, js_decode(s:jsl5)) 329endfunc 330 331func Test_json_encode_long() 332 " The growarray uses a grow size of 4000, check that a result that is exactly 333 " 4000 bytes long is not missing the final NUL. 334 let json = json_encode([repeat('a', 3996)]) 335 call assert_equal(4000, len(json)) 336endfunc 337 338" vim: shiftwidth=2 sts=2 expandtab 339