Add very rudimentary C4Script testing framework

planet/Issues.ocf/Dummy.ocd/DefCore.txt

@@ -0,0 +1,4 @@
+[DefCore]
+id=Dummy
+Version=5,3,0,0
+Category=C4D_StaticBack

planet/Issues.ocf/Dummy.ocd/Script.c

@@ -0,0 +1,9 @@
+/**
+	Dummy
+	
+	A dummy object which may serve for various purposes
+*/
+
+
+local Name = "$Name$";
+local Visibility = VIS_None;

planet/Issues.ocf/Dummy.ocd/StringTblDE.txt

@@ -0,0 +1 @@
+Name=Dummy

planet/Issues.ocf/Dummy.ocd/StringTblUS.txt

@@ -0,0 +1 @@
+Name=Dummy

planet/Issues.ocf/System.ocg/Testing.c

@@ -0,0 +1,58 @@
+/*
+ * OpenClonk, http://www.openclonk.org
+ *
+ * Copyright (c) 2013  Nicolas Hake
+ *
+ * Permission to use, copy, modify, and/or distribute this software for any
+ * purpose with or without fee is hereby granted, provided that the above
+ * copyright notice and this permission notice appear in all copies.
+ * See isc_license.txt for full license and disclaimer.
+ *
+ * "Clonk" is a registered trademark of Matthes Bender.
+ * See clonk_trademark_license.txt for full license.
+ */
+
+static __test_last_result;
+
+global func TEST(section)
+{
+	if (!__test_last_result)
+		__test_last_result = {
+			section: nil,
+			ok: 0,
+			failed: 0
+		};
+	if (__test_last_result.section)
+	{
+		Log("** TEST: %s: [%d/%d ok]", __test_last_result.section, __test_last_result.ok, __test_last_result.ok + __test_last_result.failed);
+	}
+	__test_last_result.section = section;
+	__test_last_result.ok = __test_last_result.failed = 0;
+	if (section)
+		Log("** TEST: %s", section);
+}
+
+global func END_TEST()
+{
+	TEST(nil);
+}
+
+global func EXPECT_EQ(expected, actual, failure_msg)
+{
+	if (expected != actual)
+	{
+		++__test_last_result.failed;
+		var readable_expected = Format("%v", expected);
+		var readable_actual = Format("%v", actual);
+		if (GetType(expected) == C4V_C4Object)
+			readable_expected = Format("%v /* %s */", expected, expected->GetName());
+		if (GetType(actual) == C4V_C4Object)
+			readable_actual = Format("%v /* %s */", actual, actual->GetName());
+		if (failure_msg)
+			Log("*** EXPECTATION %d FAILED: %s (%s != %s)", __test_last_result.failed + __test_last_result.ok, failure_msg, readable_expected, readable_actual);
+		else
+			Log("*** EXPECTATION %d FAILED: (%s != %s)", __test_last_result.failed + __test_last_result.ok, readable_expected, readable_actual);
+	} else {
+		++__test_last_result.ok;
+	}
+}

planet/Issues.ocf/Title.txt

@@ -0,0 +1 @@
+US:Test cases for reported bugs