1" Test for JSON functions. 2 3" JSON requires using utf-8. Conversion breaks the asserts, therefore set 4" 'encoding' to utf-8. 5if !has('multi_byte') 6 finish 7endif 8set encoding=utf-8 9scriptencoding utf-8 10 11let s:json1 = '"str\"in\\g"' 12let s:var1 = "str\"in\\g" 13let s:json2 = '"\u0001\u0002\u0003\u0004\u0005\u0006\u0007"' 14let s:var2 = "\x01\x02\x03\x04\x05\x06\x07" 15let s:json3 = '"\b\t\n\u000b\f\r\u000e\u000f"' 16let s:var3 = "\x08\x09\x0a\x0b\x0c\x0d\x0e\x0f" 17let s:json4 = '"\u0010\u0011\u0012\u0013\u0014\u0015\u0016\u0017"' 18let s:var4 = "\x10\x11\x12\x13\x14\x15\x16\x17" 19let s:json5 = '"\u0018\u0019\u001a\u001b\u001c\u001d\u001e\u001f"' 20let s:var5 = "\x18\x19\x1a\x1b\x1c\x1d\x1e\x1f" 21 22" surrogate pair 23let s:jsonsp1 = '"\ud83c\udf63"' 24let s:varsp1 = "\xf0\x9f\x8d\xa3" 25let s:jsonsp2 = '"\ud83c\u00a0"' 26let s:varsp2 = "\ud83c\u00a0" 27 28let s:jsonmb = '"s¢cĴgё"' 29let s:varmb = "s¢cĴgё" 30let s:jsonnr = '1234' 31let s:varnr = 1234 32if has('float') 33 let s:jsonfl = '12.34' 34 let s:varfl = 12.34 35 let s:jsoninf = 'Infinity' 36 let s:varinf = 1.0 / 0.0 37 let s:jsonnan = 'NaN' 38 let s:varnan = 0.0 / 0.0 39endif 40 41let s:jsonl1 = '[1,"a",3]' 42let s:varl1 = [1, "a", 3] 43let s:jsonl2 = '[1,["a",[],"c"],3]' 44let s:jsonl2s = " [\r1 , [ \"a\" , [ ] , \"c\" ] , 3\<Tab>]\r\n" 45let s:varl2 = [1, 2, 3] 46let l2 = ['a', s:varl2, 'c'] 47let s:varl2[1] = l2 48let s:varl2x = [1, ["a", [], "c"], 3] 49let s:jsonl3 = '[[1,2],[1,2]]' 50let l3 = [1, 2] 51let s:varl3 = [l3, l3] 52 53let s:jsond1 = '{"a":1,"b":"bee","c":[1,2]}' 54let s:jsd1 = '{a:1,b:"bee",c:[1,2]}' 55let s:vard1 = {"a": 1, "b": "bee","c": [1,2]} 56let s:jsond2 = '{"1":1,"2":{"a":"aa","b":{},"c":"cc"},"3":3}' 57let s:jsd2 = '{"1":1,"2":{a:"aa",b:{},c:"cc"},"3":3}' 58let s:jsond2s = " { \"1\" : 1 , \"2\" :\n{ \"a\"\r: \"aa\" , \"b\" : {\<Tab>} , \"c\" : \"cc\" } , \"3\" : 3 }\r\n" 59let s:jsd2s = " { \"1\" : 1 , \"2\" :\n{ a\r: \"aa\" , b : {\<Tab>} , c : \"cc\" } , \"3\" : 3 }\r\n" 60let s:vard2 = {"1": 1, "2": 2, "3": 3} 61let d2 = {"a": "aa", "b": s:vard2, "c": "cc"} 62let s:vard2["2"] = d2 63let s:vard2x = {"1": 1, "2": {"a": "aa", "b": {}, "c": "cc"}, "3": 3} 64let d3 = {"a": 1, "b": 2} 65let s:vard3 = {"x": d3, "y": d3} 66let s:jsond3 = '{"x":{"a":1,"b":2},"y":{"a":1,"b":2}}' 67let s:jsd3 = '{x:{a:1,b:2},y:{a:1,b:2}}' 68let s:vard4 = {"key": v:none} 69let s:vard4x = {"key": v:null} 70let s:jsond4 = '{"key":null}' 71let s:jsd4 = '{key:null}' 72 73let s:jsonvals = '[true,false,null,null]' 74let s:varvals = [v:true, v:false, v:null, v:null] 75 76func Test_json_encode() 77 call assert_equal(s:json1, json_encode(s:var1)) 78 call assert_equal(s:json2, json_encode(s:var2)) 79 call assert_equal(s:json3, json_encode(s:var3)) 80 call assert_equal(s:json4, json_encode(s:var4)) 81 call assert_equal(s:json5, json_encode(s:var5)) 82 83 if has('multi_byte') 84 call assert_equal(s:jsonmb, json_encode(s:varmb)) 85 " no test for surrogate pair, json_encode() doesn't create them. 86 endif 87 88 call assert_equal(s:jsonnr, json_encode(s:varnr)) 89 if has('float') 90 call assert_equal(s:jsonfl, json_encode(s:varfl)) 91 call assert_equal(s:jsoninf, json_encode(s:varinf)) 92 call assert_equal(s:jsonnan, json_encode(s:varnan)) 93 endif 94 95 call assert_equal(s:jsonl1, json_encode(s:varl1)) 96 call assert_equal(s:jsonl2, json_encode(s:varl2)) 97 call assert_equal(s:jsonl3, json_encode(s:varl3)) 98 99 call assert_equal(s:jsond1, json_encode(s:vard1)) 100 call assert_equal(s:jsond2, json_encode(s:vard2)) 101 call assert_equal(s:jsond3, json_encode(s:vard3)) 102 call assert_equal(s:jsond4, json_encode(s:vard4)) 103 104 call assert_equal(s:jsonvals, json_encode(s:varvals)) 105 106 call assert_fails('echo json_encode(function("tr"))', 'E474:') 107 call assert_fails('echo json_encode([function("tr")])', 'E474:') 108 109 silent! let res = json_encode(function("tr")) 110 call assert_equal("", res) 111endfunc 112 113func Test_json_decode() 114 call assert_equal(s:var1, json_decode(s:json1)) 115 call assert_equal(s:var2, json_decode(s:json2)) 116 call assert_equal(s:var3, json_decode(s:json3)) 117 call assert_equal(s:var4, json_decode(s:json4)) 118 call assert_equal(s:var5, json_decode(s:json5)) 119 120 if has('multi_byte') 121 call assert_equal(s:varmb, json_decode(s:jsonmb)) 122 call assert_equal(s:varsp1, json_decode(s:jsonsp1)) 123 call assert_equal(s:varsp2, json_decode(s:jsonsp2)) 124 endif 125 126 call assert_equal(s:varnr, json_decode(s:jsonnr)) 127 if has('float') 128 call assert_equal(s:varfl, json_decode(s:jsonfl)) 129 endif 130 131 call assert_equal(s:varl1, json_decode(s:jsonl1)) 132 call assert_equal(s:varl2x, json_decode(s:jsonl2)) 133 call assert_equal(s:varl2x, json_decode(s:jsonl2s)) 134 call assert_equal(s:varl3, json_decode(s:jsonl3)) 135 136 call assert_equal(s:vard1, json_decode(s:jsond1)) 137 call assert_equal(s:vard2x, json_decode(s:jsond2)) 138 call assert_equal(s:vard2x, json_decode(s:jsond2s)) 139 call assert_equal(s:vard3, json_decode(s:jsond3)) 140 call assert_equal(s:vard4x, json_decode(s:jsond4)) 141 142 call assert_equal(s:varvals, json_decode(s:jsonvals)) 143 144 call assert_equal(v:true, json_decode('true')) 145 call assert_equal(type(v:true), type(json_decode('true'))) 146 call assert_equal(v:none, json_decode('')) 147 call assert_equal(type(v:none), type(json_decode(''))) 148 call assert_equal("", json_decode('""')) 149 150 call assert_equal({'n': 1}, json_decode('{"n":1,}')) 151 152 call assert_fails('call json_decode("\"")', "E474:") 153 call assert_fails('call json_decode("blah")', "E474:") 154 call assert_fails('call json_decode("true blah")', "E474:") 155 call assert_fails('call json_decode("<foobar>")', "E474:") 156 157 call assert_fails('call json_decode("{")', "E474:") 158 call assert_fails('call json_decode("{foobar}")', "E474:") 159 call assert_fails('call json_decode("{\"n\",")', "E474:") 160 call assert_fails('call json_decode("{\"n\":")', "E474:") 161 call assert_fails('call json_decode("{\"n\":1")', "E474:") 162 call assert_fails('call json_decode("{\"n\":1,")', "E474:") 163 call assert_fails('call json_decode("{\"n\",1}")', "E474:") 164 call assert_fails('call json_decode("{-}")', "E474:") 165 166 call assert_fails('call json_decode("[foobar]")', "E474:") 167 call assert_fails('call json_decode("[")', "E474:") 168 call assert_fails('call json_decode("[1")', "E474:") 169 call assert_fails('call json_decode("[1,")', "E474:") 170 call assert_fails('call json_decode("[1 2]")', "E474:") 171 172 call assert_fails('call json_decode("[1,,2]")', "E474:") 173endfunc 174 175let s:jsl5 = '[7,,,]' 176let s:varl5 = [7, v:none, v:none] 177 178func Test_js_encode() 179 call assert_equal(s:json1, js_encode(s:var1)) 180 call assert_equal(s:json2, js_encode(s:var2)) 181 call assert_equal(s:json3, js_encode(s:var3)) 182 call assert_equal(s:json4, js_encode(s:var4)) 183 call assert_equal(s:json5, js_encode(s:var5)) 184 185 if has('multi_byte') 186 call assert_equal(s:jsonmb, js_encode(s:varmb)) 187 " no test for surrogate pair, js_encode() doesn't create them. 188 endif 189 190 call assert_equal(s:jsonnr, js_encode(s:varnr)) 191 if has('float') 192 call assert_equal(s:jsonfl, js_encode(s:varfl)) 193 call assert_equal(s:jsoninf, js_encode(s:varinf)) 194 call assert_equal(s:jsonnan, js_encode(s:varnan)) 195 endif 196 197 call assert_equal(s:jsonl1, js_encode(s:varl1)) 198 call assert_equal(s:jsonl2, js_encode(s:varl2)) 199 call assert_equal(s:jsonl3, js_encode(s:varl3)) 200 201 call assert_equal(s:jsd1, js_encode(s:vard1)) 202 call assert_equal(s:jsd2, js_encode(s:vard2)) 203 call assert_equal(s:jsd3, js_encode(s:vard3)) 204 call assert_equal(s:jsd4, js_encode(s:vard4)) 205 206 call assert_equal(s:jsonvals, js_encode(s:varvals)) 207 208 call assert_fails('echo js_encode(function("tr"))', 'E474:') 209 call assert_fails('echo js_encode([function("tr")])', 'E474:') 210 211 silent! let res = js_encode(function("tr")) 212 call assert_equal("", res) 213 214 call assert_equal(s:jsl5, js_encode(s:varl5)) 215endfunc 216 217func Test_js_decode() 218 call assert_equal(s:var1, js_decode(s:json1)) 219 call assert_equal(s:var2, js_decode(s:json2)) 220 call assert_equal(s:var3, js_decode(s:json3)) 221 call assert_equal(s:var4, js_decode(s:json4)) 222 call assert_equal(s:var5, js_decode(s:json5)) 223 224 if has('multi_byte') 225 call assert_equal(s:varmb, js_decode(s:jsonmb)) 226 call assert_equal(s:varsp1, js_decode(s:jsonsp1)) 227 call assert_equal(s:varsp2, js_decode(s:jsonsp2)) 228 endif 229 230 call assert_equal(s:varnr, js_decode(s:jsonnr)) 231 if has('float') 232 call assert_equal(s:varfl, js_decode(s:jsonfl)) 233 call assert_equal(s:varinf, js_decode(s:jsoninf)) 234 call assert_true(isnan(js_decode(s:jsonnan))) 235 endif 236 237 call assert_equal(s:varl1, js_decode(s:jsonl1)) 238 call assert_equal(s:varl2x, js_decode(s:jsonl2)) 239 call assert_equal(s:varl2x, js_decode(s:jsonl2s)) 240 call assert_equal(s:varl3, js_decode(s:jsonl3)) 241 242 call assert_equal(s:vard1, js_decode(s:jsond1)) 243 call assert_equal(s:vard1, js_decode(s:jsd1)) 244 call assert_equal(s:vard2x, js_decode(s:jsond2)) 245 call assert_equal(s:vard2x, js_decode(s:jsd2)) 246 call assert_equal(s:vard2x, js_decode(s:jsond2s)) 247 call assert_equal(s:vard2x, js_decode(s:jsd2s)) 248 call assert_equal(s:vard3, js_decode(s:jsond3)) 249 call assert_equal(s:vard3, js_decode(s:jsd3)) 250 call assert_equal(s:vard4x, js_decode(s:jsond4)) 251 call assert_equal(s:vard4x, js_decode(s:jsd4)) 252 253 call assert_equal(s:varvals, js_decode(s:jsonvals)) 254 255 call assert_equal(v:true, js_decode('true')) 256 call assert_equal(type(v:true), type(js_decode('true'))) 257 call assert_equal(v:none, js_decode('')) 258 call assert_equal(type(v:none), type(js_decode(''))) 259 call assert_equal("", js_decode('""')) 260 261 call assert_equal({'n': 1}, js_decode('{"n":1,}')) 262 263 call assert_fails('call js_decode("\"")', "E474:") 264 call assert_fails('call js_decode("blah")', "E474:") 265 call assert_fails('call js_decode("true blah")', "E474:") 266 call assert_fails('call js_decode("<foobar>")', "E474:") 267 268 call assert_fails('call js_decode("{")', "E474:") 269 call assert_fails('call js_decode("{foobar}")', "E474:") 270 call assert_fails('call js_decode("{\"n\",")', "E474:") 271 call assert_fails('call js_decode("{\"n\":")', "E474:") 272 call assert_fails('call js_decode("{\"n\":1")', "E474:") 273 call assert_fails('call js_decode("{\"n\":1,")', "E474:") 274 call assert_fails('call js_decode("{\"n\",1}")', "E474:") 275 call assert_fails('call js_decode("{-}")', "E474:") 276 277 call assert_fails('call js_decode("[foobar]")', "E474:") 278 call assert_fails('call js_decode("[")', "E474:") 279 call assert_fails('call js_decode("[1")', "E474:") 280 call assert_fails('call js_decode("[1,")', "E474:") 281 call assert_fails('call js_decode("[1 2]")', "E474:") 282 283 call assert_equal(s:varl5, js_decode(s:jsl5)) 284endfunc 285