polserver/testsuite/escript/json/json01.src
Kevin Eady 469a454446
Add prettify argument to PackJSON() (#520)
* Add prettify argument to PackJson()

* simplify test
2023-04-28 09:44:22 +02:00

21 lines
No EOL
651 B
Text

program main()
var expr := struct{
"a" := "hello there",
"b" := Boolean(1),
"c" := array{ Boolean(0), Unpack("u") },
"d" := struct{ "key" := "value" }
};
var json := PackJSON(expr);
var obj := UnpackJSON(json);
print(TypeOfInt(obj) == OT_STRUCT);
print(obj.size() == 4);
print(obj.a == "hello there");
print(obj.b == Boolean(1));
print(obj.c[1] == Boolean(0));
print(obj.c[2] == Unpack("u"));
print(obj.c.size() == 2);
print(TypeOfInt(obj.d) == OT_STRUCT);
print(obj.d.size() == 1);
print(obj.d.key == "value");
print(PackJSON(expr, 1) != json);
endprogram