/* Copyright (C) 2025 Wildfire Games.
 * This file is part of 0 A.D.
 *
 * 0 A.D. is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 2 of the License, or
 * (at your option) any later version.
 *
 * 0 A.D. is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with 0 A.D.  If not, see <http://www.gnu.org/licenses/>.
 */

#include "lib/self_test.h"

#include "graphics/MapReader.h"
#include "graphics/Terrain.h"
#include "lib/config2.h"
#include "lib/debug.h"
#include "lib/file/file_system.h"
#include "lib/file/vfs/vfs.h"
#include "lib/path.h"
#include "lib/timer.h"
#include "lib/types.h"
#include "maths/Fixed.h"
#include "ps/CLogger.h"
#include "ps/Filesystem.h"
#include "ps/Loader.h"
#include "ps/XML/Xeromyces.h"
#include "scriptinterface/FunctionWrapper.h"
#include "scriptinterface/ScriptInterface.h"
#include "scriptinterface/ScriptRequest.h"
#include "simulation2/Simulation2.h"
#include "simulation2/serialization/DebugSerializer.h"
#include "simulation2/serialization/HashSerializer.h"
#include "simulation2/serialization/StdDeserializer.h"
#include "simulation2/serialization/StdSerializer.h"
#include "simulation2/system/Component.h"

#include <cstdint>
#include <cstdio>
#include <iostream>
#include <js/CallArgs.h>
#include <js/RootingAPI.h>
#include <js/TypeDecls.h>
#include <js/Value.h>
#include <memory>
#include <sstream>
#include <string>

#if CONFIG2_VALGRIND
# include "callgrind.h"
#endif

#define TS_ASSERT_STREAM(stream, len, buffer) \
	TS_ASSERT_EQUALS(stream.str().length(), (size_t)len); \
	TS_ASSERT_SAME_DATA(stream.str().data(), buffer, len)
#define TSM_ASSERT_STREAM(m, stream, len, buffer) \
	TSM_ASSERT_EQUALS(m, stream.str().length(), (size_t)len); \
	TSM_ASSERT_SAME_DATA(m, stream.str().data(), buffer, len)

class TestSerializer : public CxxTest::TestSuite
{
public:
	void serialize_types(ISerializer& serialize)
	{
		serialize.NumberI8_Unbounded("i8", (signed char)-123);
		serialize.NumberU8_Unbounded("u8", (unsigned char)255);
		serialize.NumberI16_Unbounded("i16", -12345);
		serialize.NumberU16_Unbounded("u16", 56789);
		serialize.NumberI32_Unbounded("i32", -123);
		serialize.NumberU32_Unbounded("u32", (unsigned)-123);
		serialize.NumberFloat_Unbounded("float", 1e+30f);
		serialize.NumberDouble_Unbounded("double", 1e+300);
		serialize.NumberFixed_Unbounded("fixed", fixed::FromFloat(1234.5f));

		serialize.Bool("t", true);
		serialize.Bool("f", false);

		serialize.StringASCII("string", "example", 0, 255);
		serialize.StringASCII("string 2", "example\"\\\"", 0, 255);
		serialize.StringASCII("string 3", "example\n\ntest", 0, 255);

		wchar_t testw[] = { 't', 0xEA, 's', 't', 0 };
		serialize.String("string 4", testw, 0, 255);

		serialize.RawBytes("raw bytes", (const u8*)"\0\1\2\3\x0f\x10", 6);
	}

	void test_Debug_basic()
	{
		ScriptInterface script("Test", "Test", g_ScriptContext);
		std::stringstream stream;
		CDebugSerializer serialize(script, stream);
		serialize.NumberI32_Unbounded("x", -123);
		serialize.NumberU32_Unbounded("y", 1234);
		serialize.NumberI32("z", 12345, 0, 65535);
		TS_ASSERT_STR_EQUALS(stream.str(), "x: -123\ny: 1234\nz: 12345\n");
	}

	void test_Debug_floats()
	{
		ScriptInterface script("Test", "Test", g_ScriptContext);
		std::stringstream stream;
		CDebugSerializer serialize(script, stream);
		serialize.NumberFloat_Unbounded("x", 1e4f);
		serialize.NumberFloat_Unbounded("x", 1e-4f);
		serialize.NumberFloat_Unbounded("x", 1e5f);
		serialize.NumberFloat_Unbounded("x", 1e-5f);
		serialize.NumberFloat_Unbounded("x", 1e6f);
		serialize.NumberFloat_Unbounded("x", 1e-6f);
		serialize.NumberFloat_Unbounded("x", 1e10f);
		serialize.NumberFloat_Unbounded("x", 1e-10f);
		serialize.NumberDouble_Unbounded("x", 1e4);
		serialize.NumberDouble_Unbounded("x", 1e-4);
		serialize.NumberDouble_Unbounded("x", 1e5);
		serialize.NumberDouble_Unbounded("x", 1e-5);
		serialize.NumberDouble_Unbounded("x", 1e6);
		serialize.NumberDouble_Unbounded("x", 1e-6);
		serialize.NumberDouble_Unbounded("x", 1e10);
		serialize.NumberDouble_Unbounded("x", 1e-10);
		serialize.NumberDouble_Unbounded("x", 1e100);
		serialize.NumberDouble_Unbounded("x", 1e-100);
		serialize.NumberFixed_Unbounded("x", fixed::FromDouble(1e4));
		TS_ASSERT_STR_EQUALS(stream.str(),
				"x: 10000\nx: 9.9999997e-05\nx: 100000\nx: 9.9999997e-06\nx: 1000000\nx: 1e-06\nx: 1e+10\nx: 1e-10\n"
				"x: 10000\nx: 0.0001\nx: 100000\nx: 1.0000000000000001e-05\nx: 1000000\nx: 9.9999999999999995e-07\nx: 10000000000\nx: 1e-10\nx: 1e+100\nx: 1e-100\n"
				"x: 10000\n"
		);
	}

	void test_Debug_types()
	{
		ScriptInterface script("Test", "Test", g_ScriptContext);
		std::stringstream stream;
		CDebugSerializer serialize(script, stream);

		serialize.Comment("comment");

		serialize_types(serialize);

		TS_ASSERT_STR_EQUALS(stream.str(),
				"# comment\n"
				"i8: -123\n"
				"u8: 255\n"
				"i16: -12345\n"
				"u16: 56789\n"
				"i32: -123\n"
				"u32: 4294967173\n"
				"float: 1e+30\n"
				"double: 1.0000000000000001e+300\n"
				"fixed: 1234.5\n"
				"t: true\n"
				"f: false\n"
				"string: \"example\"\n"
				"string 2: \"example\\\"\\\\\\\"\"\n" // C-escaped form of: "example\"\\\""
				"string 3: \"example\\n\\ntest\"\n"
				"string 4: \"t\xC3\xAAst\"\n"
				"raw bytes: (6 bytes) 00 01 02 03 0f 10\n"
		);
	}

	void test_Std_basic()
	{
		ScriptInterface script("Test", "Test", g_ScriptContext);
		std::stringstream stream;
		CStdSerializer serialize(script, stream);

		serialize.NumberI32_Unbounded("x", -123);
		serialize.NumberU32_Unbounded("y", 1234);
		serialize.NumberI32("z", 12345, 0, 65535);

		TS_ASSERT_STREAM(stream, 12, "\x85\xff\xff\xff" "\xd2\x04\x00\x00" "\x39\x30\x00\x00");

		CStdDeserializer deserialize(script, stream);
		int32_t n;

		deserialize.NumberI32_Unbounded("x", n);
		TS_ASSERT_EQUALS(n, -123);
		deserialize.NumberI32_Unbounded("y", n);
		TS_ASSERT_EQUALS(n, 1234);
		deserialize.NumberI32("z", n, 0, 65535);
		TS_ASSERT_EQUALS(n, 12345);

		// NOTE: Don't use good() here - it fails due to a bug in older libc++ versions
		TS_ASSERT(!stream.bad() && !stream.fail());
		TS_ASSERT_EQUALS(stream.peek(), EOF);
	}

	void test_Std_types()
	{
		ScriptInterface script("Test", "Test", g_ScriptContext);
		std::stringstream stream;
		CStdSerializer serialize(script, stream);

		serialize_types(serialize);

		CStdDeserializer deserialize(script, stream);
		int8_t i8v;
		uint8_t u8v;
		int16_t i16v;
		uint16_t u16v;
		int32_t i32v;
		uint32_t u32v;
		float flt;
		double dbl;
		fixed fxd;
		bool bl;
		std::string str;
		std::wstring wstr;
		u8 cbuf[256];

		deserialize.NumberI8_Unbounded("i8", i8v);
		TS_ASSERT_EQUALS(i8v, -123);
		deserialize.NumberU8_Unbounded("u8", u8v);
		TS_ASSERT_EQUALS(u8v, 255);
		deserialize.NumberI16_Unbounded("i16", i16v);
		TS_ASSERT_EQUALS(i16v, -12345);
		deserialize.NumberU16_Unbounded("u16", u16v);
		TS_ASSERT_EQUALS(u16v, 56789);
		deserialize.NumberI32_Unbounded("i32", i32v);
		TS_ASSERT_EQUALS(i32v, -123);
		deserialize.NumberU32_Unbounded("u32", u32v);
		TS_ASSERT_EQUALS(u32v, 4294967173u);
		deserialize.NumberFloat_Unbounded("float", flt);
		TS_ASSERT_EQUALS(flt, 1e+30f);
		deserialize.NumberDouble_Unbounded("double", dbl);
		TS_ASSERT_EQUALS(dbl, 1e+300);
		deserialize.NumberFixed_Unbounded("fixed", fxd);
		TS_ASSERT_EQUALS(fxd.ToDouble(), 1234.5);

		deserialize.Bool("t", bl);
		TS_ASSERT_EQUALS(bl, true);
		deserialize.Bool("f", bl);
		TS_ASSERT_EQUALS(bl, false);

		deserialize.StringASCII("string", str, 0, 255);
		TS_ASSERT_STR_EQUALS(str, "example");
		deserialize.StringASCII("string 2", str, 0, 255);
		TS_ASSERT_STR_EQUALS(str, "example\"\\\"");
		deserialize.StringASCII("string 3", str, 0, 255);
		TS_ASSERT_STR_EQUALS(str, "example\n\ntest");

		wchar_t testw[] = { 't', 0xEA, 's', 't', 0 };
		deserialize.String("string 4", wstr, 0, 255);
		TS_ASSERT_WSTR_EQUALS(wstr, testw);

		cbuf[6] = 0x42; // sentinel
		deserialize.RawBytes("raw bytes", cbuf, 6);
		TS_ASSERT_SAME_DATA(cbuf, (const u8*)"\0\1\2\3\x0f\x10\x42", 7);

		// NOTE: Don't use good() here - it fails due to a bug in older libc++ versions
		TS_ASSERT(!stream.bad() && !stream.fail());
		TS_ASSERT_EQUALS(stream.peek(), EOF);
	}

	void test_Hash_basic()
	{
		ScriptInterface script("Test", "Test", g_ScriptContext);
		CHashSerializer serialize(script);

		serialize.NumberI32_Unbounded("x", -123);
		serialize.NumberU32_Unbounded("y", 1234);
		serialize.NumberI32("z", 12345, 0, 65535);

		TS_ASSERT_EQUALS(serialize.GetHashLength(), (size_t)16);
		TS_ASSERT_SAME_DATA(serialize.ComputeHash(), "\xa0\x3a\xe5\x3e\x9b\xd7\xfb\x11\x88\x35\xc6\xfb\xb9\x94\xa9\x72", 16);
		// echo -en "\x85\xff\xff\xff\xd2\x04\x00\x00\x39\x30\x00\x00" | openssl md5 -binary | xxd -p | perl -pe 's/(..)/\\x$1/g'
	}

	void test_Hash_stream()
	{
		ScriptInterface script("Test", "Test", g_ScriptContext);
		CHashSerializer hashSerialize(script);

		hashSerialize.NumberI32_Unbounded("x", -123);
		hashSerialize.NumberU32_Unbounded("y", 1234);
		hashSerialize.NumberI32("z", 12345, 0, 65535);

		ISerializer& serialize = hashSerialize;

		{
			CStdSerializer streamSerialize(script, serialize.GetStream());
			streamSerialize.NumberI32_Unbounded("x2", -456);
			streamSerialize.NumberU32_Unbounded("y2", 5678);
			streamSerialize.NumberI32("z2", 45678, 0, 65535);
		}

		TS_ASSERT_EQUALS(hashSerialize.GetHashLength(), (size_t)16);
		TS_ASSERT_SAME_DATA(hashSerialize.ComputeHash(), "\x5c\xff\x33\xd1\x72\xdd\x6d\x77\xa8\xd4\xa1\xf6\x84\xcc\xaa\x10", 16);
		// echo -en "\x85\xff\xff\xff\xd2\x04\x00\x00\x39\x30\x00\x00\x38\xfe\xff\xff\x2e\x16\x00\x00\x6e\xb2\x00\x00" | openssl md5 -binary | xxd -p | perl -pe 's/(..)/\\x$1/g'
	}

	void test_bounds()
	{
		ScriptInterface script("Test", "Test", g_ScriptContext);
		std::stringstream stream;
		CDebugSerializer serialize(script, stream);
		serialize.NumberI32("x", 16, -16, 16);
		serialize.NumberI32("x", -16, -16, 16);
		TS_ASSERT_THROWS(serialize.NumberI32("x", 99, -16, 16), const PSERROR_Serialize_OutOfBounds&);
		TS_ASSERT_THROWS(serialize.NumberI32("x", -17, -16, 16), const PSERROR_Serialize_OutOfBounds&);
	}

	// TODO: test exceptions more thoroughly

	void helper_script_roundtrip(const char* msg, const char* input, const char* expected, size_t expstreamlen = 0, const char* expstream = NULL, const char* debug = NULL)
	{
		ScriptInterface script("Test", "Test", g_ScriptContext);
		ScriptRequest rq(script);

		JS::RootedValue obj(rq.cx);
		TSM_ASSERT(msg, script.Eval(input, &obj));

		if (debug)
		{
			std::stringstream dbgstream;
			CDebugSerializer serialize(script, dbgstream);
			serialize.ScriptVal("script", &obj);
			TS_ASSERT_STR_EQUALS(dbgstream.str(), debug);
		}

		std::stringstream stream;
		CStdSerializer serialize(script, stream);

		serialize.ScriptVal("script", &obj);

		if (expstream)
		{
			TSM_ASSERT_STREAM(msg, stream, expstreamlen, expstream);
		}

		CStdDeserializer deserialize(script, stream);

		JS::RootedValue newobj(rq.cx);
		deserialize.ScriptVal("script", &newobj);
		// NOTE: Don't use good() here - it fails due to a bug in older libc++ versions
		TSM_ASSERT(msg, !stream.bad() && !stream.fail());
		TSM_ASSERT_EQUALS(msg, stream.peek(), EOF);

		std::stringstream stream2;
		CStdSerializer serialize2(script, stream2);
		CStdDeserializer deserialize2(script, stream2);

		// Round-trip the deserialized value again. This helps ensure prototypes are correctly deserialized.
		serialize2.ScriptVal("script2", &newobj);
		deserialize2.ScriptVal("script2", &newobj);

		std::string source;
		TSM_ASSERT(msg, ScriptFunction::Call(rq, newobj, "toSource", source));
		TS_ASSERT_STR_EQUALS(source, expected);
	}

	void test_script_basic()
	{
		helper_script_roundtrip("Object",
			"({'x': 123, 'y': [1, 1.5, '2', 'test', undefined, null, true, false]})",
		/* expected: */
			"({x:123, y:[1, 1.5, \"2\", \"test\", (void 0), null, true, false]})",
		/* expected stream: */
			116,
			"\x03" // SCRIPT_TYPE_OBJECT
			"\x02\0\0\0" // num props
			"\x01\x01\0\0\0" "x" // "x"
			"\x05" // SCRIPT_TYPE_INT
			"\x7b\0\0\0" // 123
			"\x01\x01\0\0\0" "y" // "y"
			"\x02" // SCRIPT_TYPE_ARRAY
			"\x08\0\0\0" // array length
			"\x08\0\0\0" // num props
			"\x01\x01\0\0\0" "0" // "0"
			"\x05" "\x01\0\0\0" // SCRIPT_TYPE_INT 1
			"\x01\x01\0\0\0" "1" // "1"
			"\x06" "\0\0\0\0\0\0\xf8\x3f" // SCRIPT_TYPE_DOUBLE 1.5
			"\x01\x01\0\0\0" "2" // "2"
			"\x04" "\x01\x01\0\0\0" "2" // SCRIPT_TYPE_STRING "2"
			"\x01\x01\0\0\0" "3" // "3"
			"\x04" "\x01\x04\0\0\0" "test" // SCRIPT_TYPE_STRING "test"
			"\x01\x01\0\0\0" "4" // "4"
			"\x00" // SCRIPT_TYPE_VOID
			"\x01\x01\0\0\0" "5" // "5"
			"\x01" // SCRIPT_TYPE_NULL
			"\x01\x01\0\0\0" "6" // "6"
			"\x07" "\x01" // SCRIPT_TYPE_BOOLEAN true
			"\x01\x01\0\0\0" "7" // "7"
			"\x07" "\x00", // SCRIPT_TYPE_BOOLEAN false
		/* expected debug: */
			"script: {\n"
			"  \"x\": 123,\n"
			"  \"y\": [\n"
			"    1,\n"
			"    1.5,\n"
			"    \"2\",\n"
			"    \"test\",\n"
			"    null,\n"
			"    null,\n"
			"    true,\n"
			"    false\n"
			"  ]\n"
			"}\n"
		);
	}

	void test_script_unicode()
	{
		helper_script_roundtrip("unicode", "({"
			"'x': \"\\x01\\x80\\xff\\u0100\\ud7ff\", "
			"'y': \"\\ue000\\ufffd\""
			"})",
		/* expected: */
		"({"
			"x:\"\\x01\\x80\\xFF\\u0100\\uD7FF\", "
			"y:\"\\uE000\\uFFFD\""
			"})");

		// Disabled since we no longer do the UTF-8 conversion that rejects invalid characters
//		TS_ASSERT_THROWS(helper_script_roundtrip("invalid chars 1", "(\"\\ud7ff\\ud800\")", "..."), PSERROR_Serialize_InvalidCharInString);
//		TS_ASSERT_THROWS(helper_script_roundtrip("invalid chars 2", "(\"\\udfff\")", "..."), PSERROR_Serialize_InvalidCharInString);
//		TS_ASSERT_THROWS(helper_script_roundtrip("invalid chars 3", "(\"\\uffff\")", "..."), PSERROR_Serialize_InvalidCharInString);
//		TS_ASSERT_THROWS(helper_script_roundtrip("invalid chars 4", "(\"\\ud800\\udc00\")" /* U+10000 */, "..."), PSERROR_Serialize_InvalidCharInString);
		helper_script_roundtrip("unicode", "\"\\ud800\\uffff\"", "(new String(\"\\uD800\\uFFFF\"))");
	}

	void test_script_objects()
	{
		helper_script_roundtrip("Number", "[1, new Number('2.0'), 3]", "[1, (new Number(2)), 3]");
		helper_script_roundtrip("Number with props", "var n=new Number('2.0'); n.foo='bar'; n", "(new Number(2))");

		helper_script_roundtrip("String", "['test1', new String('test2'), 'test3']", "[\"test1\", (new String(\"test2\")), \"test3\"]");
		helper_script_roundtrip("String with props", "var s=new String('test'); s.foo='bar'; s", "(new String(\"test\"))");

		helper_script_roundtrip("Boolean", "[new Boolean('true'), false]", "[(new Boolean(true)), false]");
		helper_script_roundtrip("Boolean with props", "var b=new Boolean('true'); b.foo='bar'; b", "(new Boolean(true))");
	}

	void test_script_fancy_objects()
	{
		// This asserts that objects are deserialized with their correct prototypes.
		helper_script_roundtrip("Custom Object", ""
								"function customObj() { this.a = this.customFunc.name; };"
								"customObj.prototype.customFunc = function customFunc(){};"
								"new customObj();", "({a:\"customFunc\"})");

		helper_script_roundtrip("Custom Class", ""
								"class customObj {"
								"  constructor() { this.a = this.customFunc.name; }"
								"  customFunc(){};"
								"}; new customObj();", "({a:\"customFunc\"})");

		helper_script_roundtrip("Custom Class with Serialize/Deserialize()", ""
								"class customObj {"
								"  constructor() { this.a = this.customFunc.name; }"
								"  Serialize() { return { 'foo': 'bar' }; }"
								"  Deserialize(data) { this.foo = data.foo; }"
								"  customFunc(){};"
								"}; new customObj();", "({a:\"customFunc\", foo:\"bar\"})");

		helper_script_roundtrip("Custom Class with null serialize & deserialize()", ""
								"class customObj {"
								"  constructor() { this.a = this.customFunc.name; }"
								"  Deserialize(data) { this.test = 'test'; };"
								"  customFunc(){};"
								"}; customObj.prototype.Serialize=null;"
								"new customObj();", "({a:\"customFunc\", test:\"test\"})");

		helper_script_roundtrip("Custom Class with arguments but still works", ""
								"class customObj {"
								"  constructor(test) { this.a = test; }"
								"  Serialize() { return { 'data': this.a }; };"
								"  Deserialize(data) { this.a = data.data; };"
								"}; new customObj(4);", "({a:4})");
	}

	void test_script_objects_properties()
	{
		helper_script_roundtrip("Object with null in prop name", "({\"foo\\0bar\":1})", "({\'foo\\x00bar\':1})");
	}

	void test_script_typed_arrays_simple()
	{
		helper_script_roundtrip("Int8Array",
			"var arr=new Int8Array(8);"
			"for(var i=0; i<arr.length; ++i)"
			"  arr[i]=(i+1)*32;"
			"arr",
		/* expected: */
			"({0:32, 1:64, 2:96, 3:-128, 4:-96, 5:-64, 6:-32, 7:0})"
		);

		helper_script_roundtrip("Uint8Array",
			"var arr=new Uint8Array(8);"
			"for(var i=0; i<arr.length; ++i)"
			"  arr[i]=(i+1)*32;"
			"arr",
		/* expected: */
			"({0:32, 1:64, 2:96, 3:128, 4:160, 5:192, 6:224, 7:0})"
		);

		helper_script_roundtrip("Int16Array",
			"var arr=new Int16Array(8);"
			"for(var i=0; i<arr.length; ++i)"
			"  arr[i]=(i+1)*8192;"
			"arr",
		/* expected: */
			"({0:8192, 1:16384, 2:24576, 3:-32768, 4:-24576, 5:-16384, 6:-8192, 7:0})"
		);

		helper_script_roundtrip("Uint16Array",
			"var arr=new Uint16Array(8);"
			"for(var i=0; i<arr.length; ++i)"
			"  arr[i]=(i+1)*8192;"
			"arr",
		/* expected: */
			"({0:8192, 1:16384, 2:24576, 3:32768, 4:40960, 5:49152, 6:57344, 7:0})"
		);

		helper_script_roundtrip("Int32Array",
			"var arr=new Int32Array(8);"
			"for(var i=0; i<arr.length; ++i)"
			"  arr[i]=(i+1)*536870912;"
			"arr",
		/* expected: */
			"({0:536870912, 1:1073741824, 2:1610612736, 3:-2147483648, 4:-1610612736, 5:-1073741824, 6:-536870912, 7:0})"
		);

		helper_script_roundtrip("Uint32Array",
			"var arr=new Uint32Array(8);"
			"for(var i=0; i<arr.length; ++i)"
			"  arr[i]=(i+1)*536870912;"
			"arr",
		/* expected: */
			"({0:536870912, 1:1073741824, 2:1610612736, 3:2147483648, 4:2684354560, 5:3221225472, 6:3758096384, 7:0})"
		);

		helper_script_roundtrip("Float32Array",
			"var arr=new Float32Array(2);"
			"arr[0]=3.4028234e38;"
			"arr[1]=Infinity;"
			"arr",
		/* expected: */
			"({0:3.4028234663852886e+38, 1:Infinity})"
		);

		helper_script_roundtrip("Float64Array",
			"var arr=new Float64Array(2);"
			"arr[0]=1.7976931348623157e308;"
			"arr[1]=-Infinity;"
			"arr",
		/* expected: */
			"({0:1.7976931348623157e+308, 1:-Infinity})"
		);

		helper_script_roundtrip("Uint8ClampedArray",
			"var arr=new Uint8ClampedArray(8);"
			"for(var i=0; i<arr.length; ++i)"
			"  arr[i]=(i-2)*64;"
			"arr",
		/* expected: */
			"({0:0, 1:0, 2:0, 3:64, 4:128, 5:192, 6:255, 7:255})"
		);
	}

	void test_script_typed_arrays_complex()
	{
		helper_script_roundtrip("ArrayBuffer with Int16Array",
			"var buf = new ArrayBuffer(16);"
			"var int16 = new Int16Array(buf);"
			"for(var i = 0; i < int16.length; ++i)"
			"  int16[i] = (i+1)*8192;"
			"int16",
		/* expected: */
			"({0:8192, 1:16384, 2:24576, 3:-32768, 4:-24576, 5:-16384, 6:-8192, 7:0})"
		);

		helper_script_roundtrip("ArrayBuffer with Int16Array and Uint32Array",
			"var buf = new ArrayBuffer(16);"
			"var int16 = new Int16Array(buf);"
			"for(var i=0; i < int16.length; ++i)"
			"  int16[i] = (i+1)*32768;"
			"var uint32 = new Uint32Array(buf);"
			"uint32[0] = 4294967295;"
			"[int16, uint32]",
		/* expected: */ "["
				"{0:-1, 1:-1, 2:-32768, 3:0, 4:-32768, 5:0, 6:-32768, 7:0}, "
				"{0:4294967295, 1:32768, 2:32768, 3:32768}"
			"]"
		);

		helper_script_roundtrip("ArrayBuffer with complex structure",
			"var buf=new ArrayBuffer(16);" // 16 bytes
			"var chunk1 = new Int8Array(buf, 0, 4);" // 4 bytes
			"var chunk2 = new Uint16Array(buf, 4, 2);" // 4 bytes
			"var chunk3 = new Int32Array(buf, 8, 2);" // 8 bytes
			"for(var i = 0; i < chunk1.length; ++i)"
			"  chunk1[i] = 255;"
			"for(var i = 0; i < chunk2.length; ++i)"
			"  chunk2[i] = 65535;"
			"for(var i = 0; i < chunk3.length; ++i)"
			"  chunk3[i] = 4294967295;"
			"var bytes = new Uint8Array(buf);"
			"({'struct':[chunk1, chunk2, chunk3], 'bytes':bytes})",
		/* expected: */ "({"
				"struct:[{0:-1, 1:-1, 2:-1, 3:-1}, {0:65535, 1:65535}, {0:-1, 1:-1}], "
				"bytes:{0:255, 1:255, 2:255, 3:255, 4:255, 5:255, 6:255, 7:255, 8:255, 9:255, 10:255, 11:255, 12:255, 13:255, 14:255, 15:255}"
			"})"
		);
	}

	void test_script_map()
	{
		helper_script_roundtrip("Map - empty",
			"(new Map())",
		/* expected: */
			"({})",
		/* expected stream: */
			5,
			"\x0f" // SCRIPT_TYPE_MAP
			"\x00\x00\x00\x00" // size
		);

		helper_script_roundtrip("Map with elements and property",
			"var a = new Map(); a.set(12, 16); a.set(\"bar\", \"baz\"); a.foo = 27; a",
		/* expected: */
			"({})",
		/* expected stream: */
			33,
			"\x0f" // SCRIPT_TYPE_MAP
			"\x02\0\0\0" // size

			"\x05" // SCRIPT_TYPE_INT
			"\x0C\0\0\0" // 12
			"\x05" // SCRIPT_TYPE_INT
			"\x10\0\0\0" // 16

			"\x04" // SCRIPT_TYPE_STRING
			"\x01" // Latin1
			"\x03\0\0\0" "bar" // "bar"
			"\x04" // SCRIPT_TYPE_STRING
			"\x01" // Latin1
			"\x03\0\0\0" "baz" // "baz"
			// NOTE: We drop properties on Maps when serializing
		);
	}

	void test_script_set()
	{
		helper_script_roundtrip("Set - empty",
			"(new Set())",
		/* expected: */
			"({})",
		/* expected stream: */
			5,
			"\x10" // SCRIPT_TYPE_SET
			"\x00\x00\x00\x00" // size
		);

		helper_script_roundtrip("Set with elements and property",
			"var a = new Set(); a.add(12); a.add(\"bar\"); a.foo = 27; a",
		/* expected: */
			"({})",
		/* expected stream: */
			19,
			"\x10" // SCRIPT_TYPE_SET
			"\x02\0\0\0" // size

			"\x05" // SCRIPT_TYPE_INT
			"\x0C\0\0\0" // 12

			"\x04" // SCRIPT_TYPE_STRING
			"\x01" // isLatin1
			"\x03\0\0\0" "bar" // "bar"
			// NOTE: We drop properties on Sets when serializing
		);
	}

	void test_script_map_nested()
	{
		helper_script_roundtrip("Nested maps",
			"var a = new Map();"
			"a.set(\"Builder/Range\", new Map());"
			"a.get(\"Builder/Range\").set(\"155\", { \"add\": 0, \"multiply\": 1});"
			"a.get(\"Builder/Range\").set(\"2300\", { \"add\": 0, \"multiply\": 1.1});"
			"a.get(\"Builder/Range\").set(\"159\", { \"add\": 0, \"multiply\": 1});"
			"a",
		/* expected: */
			"({})",
		/* expected stream: */
			169,
			"\x0f" // SCRIPT_TYPE_MAP
			"\x01\0\0\0" // size

			"\x04" // SCRIPT_TYPE_STRING
			"\x01" // Latin1
			"\x0d\0\0\0" "Builder/Range" // "Builder/Range"
			"\x0f" // SCRIPT_TYPE_MAP
			"\x03\0\0\0" // size

				"\x04" // SCRIPT_TYPE_STRING
				"\x01" // Latin1
				"\x03\0\0\0" "155" // "155"
				"\x03" // SCRIPT_TYPE_OBJECT
				"\x02\0\0\0" // num props
					"\x01\x03\0\0\0" "add" // "add"
					"\x05" // SCRIPT_TYPE_INT
					"\0\0\0\0" // 0
					"\x01\x08\0\0\0" "multiply" // "multiply"
					"\x05" // SCRIPT_TYPE_INT
					"\x01\0\0\0" // 1

				"\x04" // SCRIPT_TYPE_STRING
				"\x01" // Latin1
				"\x04\0\0\0" "2300" // "2300"
				"\x03" // SCRIPT_TYPE_OBJECT
				"\x02\0\0\0" // num props
					"\x01\x03\0\0\0" "add" // "add"
					"\x05" // SCRIPT_TYPE_INT
					"\0\0\0\0" // 0
					"\x01\x08\0\0\0" "multiply" // "multiply"
					"\x06" // SCRIPT_TYPE_DOUBLE
					"\x9a\x99\x99\x99\x99\x99\xf1\x3f" // 1.1

				"\x04" // SCRIPT_TYPE_STRING
				"\x01" // Latin1
				"\x03\0\0\0" "159" // "159"
				"\x03" // SCRIPT_TYPE_OBJECT
				"\x02\0\0\0" // num props
					"\x01\x03\0\0\0" "add" // "add"
					"\x05" // SCRIPT_TYPE_INT
					"\0\0\0\0" // 0
					"\x01\x08\0\0\0" "multiply" // "multiply"
					"\x05" // SCRIPT_TYPE_INT
					"\x01\0\0\0" // 1
		);

		helper_script_roundtrip("Nested maps using backrefs",
			"var a = new Map(); var b = new Map(); a.set(1, b); a.set(2, b); a.set(3, b); a",
		/* expected: */
			"({})",
		/* expected stream: */
			35,
			"\x0f" // SCRIPT_TYPE_MAP
			"\x03\0\0\0" // size

			"\x05" // SCRIPT_TYPE_INT
			"\x01\0\0\0" // 1
			"\x0f" // SCRIPT_TYPE_MAP
			"\0\0\0\0" // size

			"\x05" // SCRIPT_TYPE_INT
			"\x02\0\0\0" // 2
			"\x08" // SCRIPT_TYPE_BACKREF
			"\x02\0\0\0" // ref. to object #2, i.e. "b", with #1 being "a"

			"\x05" // SCRIPT_TYPE_INT
			"\x03\0\0\0" // 3
			"\x08" // SCRIPT_TYPE_BACKREF
			"\x02\0\0\0" // ref. to object #2, i.e. "b", with #1 being "a"
		);
	}

	void test_script_set_nested()
	{
		helper_script_roundtrip("Nested sets using backrefs",
			"var a = new Set(); var b = new Set(); a.add(b); a.add({\"bar\": b}); a",
		/* expected: */
			"({})",
		/* expected stream: */
			28,
			"\x10" // SCRIPT_TYPE_SET
			"\x02\0\0\0" // size

			"\x10" // SCRIPT_TYPE_SET
			"\x00\0\0\0" // size

			"\x03" // SCRIPT_TYPE_OBJECT
			"\x01\0\0\0" // num props
				"\x01\x03\0\0\0" "bar" // "bar"
				"\x08" // SCRIPT_TYPE_BACKREF
				"\x02\0\0\0" // ref to object #2, i.e. "b", with #1 being "a"
		);
	}

	// TODO: prototype objects

	void test_script_nonfinite()
	{
		helper_script_roundtrip("nonfinite", "[0, Infinity, -Infinity, -1/Infinity]", "[0, Infinity, -Infinity, -0]");

		TestLogger logger;
		TS_ASSERT_THROWS(helper_script_roundtrip("nan", "[NaN]", "[NaN]"), const PSERROR_Serialize_InvalidScriptValue&);
	}

	void test_script_property_order()
	{
		helper_script_roundtrip("prop order 1", "var x={}; x.a=1; x.f=2; x.b=7; x.d=3; x", "({a:1, f:2, b:7, d:3})");
		helper_script_roundtrip("prop order 2", "var x={}; x.d=3; x.a=1; x.f=2; x.b=7; x", "({d:3, a:1, f:2, b:7})");
	}

	void test_script_array_sparse()
	{
		helper_script_roundtrip("array_sparse", "[,1,2,,4,,]", "[, 1, 2, , 4, ,]");
	}

	void test_script_numbers()
	{
		const char stream[] = "\x02" // SCRIPT_TYPE_ARRAY
					"\x04\0\0\0" // num props
					"\x04\0\0\0" // array length
					"\x01\x01\0\0\0" "0" // "0"
					"\x05" "\0\0\0\x80" // SCRIPT_TYPE_INT -2147483648 (JS_INT_MIN)
					"\x01\x01\0\0\0" "1" // "1"
					"\x06" "\0\0\x20\0\0\0\xE0\xC1" // SCRIPT_TYPE_DOUBLE -2147483649 (JS_INT_MIN-1)
					"\x01\x01\0\0\0" "2" // "2"
					"\x05" "\xFF\xFF\xFF\x7F" // SCRIPT_TYPE_INT 2147483647 (JS_INT_MAX)
					"\x01\x01\0\0\0" "3" // "3"
					"\x06" "\0\0\0\0\0\0\xE0\x41" // SCRIPT_TYPE_DOUBLE 2147483648 (JS_INT_MAX+1)
		;

		helper_script_roundtrip("numbers", "[-2147483648, -2147483649, 2.147483647e+9, 2147483648]",
				"[-2147483648, -2147483649, 2147483647, 2147483648]", sizeof(stream) - 1, stream);
	}

	void test_script_exceptions()
	{
		ScriptInterface script("Test", "Test", g_ScriptContext);
		ScriptRequest rq(script);

		JS::RootedValue obj(rq.cx);

		std::stringstream stream;
		CStdSerializer serialize(script, stream);

		TestLogger logger;

		TS_ASSERT(script.Eval("([1, 2, function () { }])", &obj));
		TS_ASSERT_THROWS(serialize.ScriptVal("script", &obj), const PSERROR_Serialize_InvalidScriptValue&);
		TS_ASSERT_STR_CONTAINS(logger.GetOutput(), "ERROR: Cannot serialize JS objects of type 'function': (unnamed)");
	}

	void test_script_splice()
	{
		helper_script_roundtrip("splice 1", "var a=[10,20]; a.splice(0, 1); a", "[20]");
		helper_script_roundtrip("splice 1", "var a=[10,20]; a.splice(0, 2); a", "[]");
		helper_script_roundtrip("splice 1", "var a=[10,20]; a.splice(0, 0, 5); a", "[5, 10, 20]");
	}

	// TODO: test deserializing invalid streams

	// TODO: test non-tree script structures
	// (not critical since TestComponentManager::test_script_serialization indirectly tests that already)
};

class TestSerializerPerf : public CxxTest::TestSuite
{
public:
	void DISABLED_test_script_props()
	{
		const char* input = "var x = {}; for (var i=0;i<256;++i) x[i]=Math.pow(i, 2); x";

		ScriptInterface script("Test", "Test", g_ScriptContext);
		ScriptRequest rq(script);

		JS::RootedValue obj(rq.cx);
		TS_ASSERT(script.Eval(input, &obj));

		for (size_t i = 0; i < 256; ++i)
		{
			std::stringstream stream;
			CStdSerializer serialize(script, stream);

			serialize.ScriptVal("script", &obj);

			CStdDeserializer deserialize(script, stream);

			JS::RootedValue newobj(rq.cx);
			deserialize.ScriptVal("script", &newobj);
			// NOTE: Don't use good() here - it fails due to a bug in older libc++ versions
			TS_ASSERT(!stream.bad() && !stream.fail());
			TS_ASSERT_EQUALS(stream.peek(), EOF);

			if (i == 0)
			{
				std::string source;
				TS_ASSERT(ScriptFunction::Call(rq, newobj, "toSource", source));
				std::cout << source << "\n";
			}
		}
	}

	void DISABLED_test_hash()
	{
		CXeromycesEngine xeromycesEngine;

		g_VFS = CreateVfs();
		TS_ASSERT_OK(g_VFS->Mount(L"", DataDir() / "mods" / "public" / "", VFS_MOUNT_MUST_EXIST));
		TS_ASSERT_OK(g_VFS->Mount(L"cache", DataDir() / "_testcache" / "", 0, VFS_MAX_PRIORITY));

		CTerrain terrain;

		CSimulation2 sim2{nullptr, *g_ScriptContext, &terrain};
		sim2.LoadDefaultScripts();
		sim2.ResetState();

		std::unique_ptr<CMapReader> mapReader = std::make_unique<CMapReader>();

		LDR_BeginRegistering();
		mapReader->LoadMap(L"maps/skirmishes/Greek Acropolis (2).pmp",
			sim2.GetScriptInterface().GetContext(), JS::UndefinedHandleValue,
			&terrain, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
			&sim2, &sim2.GetSimContext(), -1, false);
		LDR_EndRegistering();
		TS_ASSERT_OK(LDR_NonprogressiveLoad());

		sim2.Update(0);

		{
			std::stringstream str;
			std::string hash;
			sim2.SerializeState(str);
			sim2.ComputeStateHash(hash, false);
			debug_printf("\n");
			debug_printf("# size = %d\n", (int)str.str().length());
			debug_printf("# hash = ");
			for (size_t i = 0; i < hash.size(); ++i)
				debug_printf("%02x", (unsigned int)(u8)hash[i]);
			debug_printf("\n");
		}

		double t = timer_Time();
#if CONFIG2_VALGRIND
		CALLGRIND_START_INSTRUMENTATION;
#endif
		size_t reps = 128;
		for (size_t i = 0; i < reps; ++i)
		{
			std::string hash;
			sim2.ComputeStateHash(hash, false);
		}
#if CONFIG2_VALGRIND
		CALLGRIND_STOP_INSTRUMENTATION;
#endif
		t = timer_Time() - t;
		debug_printf("# time = %f (%f/%d)\n", t/reps, t, (int)reps);

		// Shut down the world
		g_VFS.reset();
		DeleteDirectory(DataDir()/"_testcache");
	}

};
