/*===
json encode: {"foo":123,"bar":"quux"}
top after: 2
JSON encoded: {"meaningOfLife":42}
top after: 0
json decode, result.foo=bar
top after: 3
JSON decoded meaningOfLife is: 42
top after: 0
===*/

void test_encode(duk_context *ctx) {
	duk_push_object(ctx);
	duk_push_int(ctx, 123);
	duk_put_prop_string(ctx, -2, "foo");
	duk_push_string(ctx, "quux");
	duk_put_prop_string(ctx, -2, "bar");
	duk_push_int(ctx, 123);  /* dummy */
	printf("json encode: %s\n", duk_json_encode(ctx, -2));
	printf("top after: %d\n", duk_get_top(ctx));  /* value + dummy */
	duk_set_top(ctx, 0);
}

void test_encode_apidoc(duk_context *ctx) {
	duk_push_object(ctx);
	duk_push_int(ctx, 42);
	duk_put_prop_string(ctx, -2, "meaningOfLife");
	printf("JSON encoded: %s\n", duk_json_encode(ctx, -1));
	duk_pop(ctx);
	printf("top after: %d\n", duk_get_top(ctx));  /* value + dummy + get_prop result */
	duk_set_top(ctx, 0);
}

void test_decode(duk_context *ctx) {
	duk_push_string(ctx, "{\"foo\":\"bar\"}");
	duk_push_int(ctx, 321);  /* dummy */
	duk_json_decode(ctx, -2);
	duk_get_prop_string(ctx, -2, "foo");
	printf("json decode, result.foo=%s\n", duk_get_string(ctx, -1));
	printf("top after: %d\n", duk_get_top(ctx));  /* value + dummy + get_prop result */
	duk_set_top(ctx, 0);
}

void test_decode_apidoc(duk_context *ctx) {
	duk_push_string(ctx, "{\"meaningOfLife\":42}");
	duk_json_decode(ctx, -1);
	duk_get_prop_string(ctx, -1, "meaningOfLife");
	printf("JSON decoded meaningOfLife is: %s\n", duk_to_string(ctx, -1));
	duk_pop_2(ctx);
	printf("top after: %d\n", duk_get_top(ctx));  /* value + dummy + get_prop result */
	duk_set_top(ctx, 0);
}

void test(duk_context *ctx) {
	test_encode(ctx);
	test_encode_apidoc(ctx);
	test_decode(ctx);
	test_decode_apidoc(ctx);
	/* FIXME: test decode error */
}