view tests/test_util_json.lua @ 8887:c47f220580fd

Backed out changeset b8c3dbf76a2e (fixes #1162) This is not required by the XEP and has privacy issues.
author Kim Alvefur <zash@zash.se>
date Fri, 08 Jun 2018 16:02:57 +0200
parents 71ca252d9f69
children
line wrap: on
line source


function encode(encode, json)
	local function test(f, j, e)
		if e then
			assert_equal(f(j), e);
		end
		assert_equal(f(j), f(json.decode(f(j))));
	end
	test(encode, json.null, "null")
	test(encode, {}, "{}")
	test(encode, {a=1});
	test(encode, {a={1,2,3}});
	test(encode, {1}, "[1]");
end

function decode(decode)
	local empty_array = decode("[]");
	assert_equal(type(empty_array), "table");
	assert_equal(#empty_array, 0);
	assert_equal(next(empty_array), nil);
end