From 68e023651a21dc1dcae847c66aeb80670d2ae6a8 Mon Sep 17 00:00:00 2001
From: Nicolas Hake <isilkor@openclonk.org>
Date: Sun, 1 Sep 2013 00:31:47 +0200
Subject: [PATCH] Add very rudimentary C4Script testing framework

---
 planet/Issues.ocf/Dummy.ocd/DefCore.txt     |   4 ++
 planet/Issues.ocf/Dummy.ocd/Graphics.png    | Bin 0 -> 137 bytes
 planet/Issues.ocf/Dummy.ocd/Script.c        |   9 +++
 planet/Issues.ocf/Dummy.ocd/StringTblDE.txt |   1 +
 planet/Issues.ocf/Dummy.ocd/StringTblUS.txt |   1 +
 planet/Issues.ocf/System.ocg/Testing.c      |  58 ++++++++++++++++++++
 planet/Issues.ocf/Title.txt                 |   1 +
 7 files changed, 74 insertions(+)
 create mode 100644 planet/Issues.ocf/Dummy.ocd/DefCore.txt
 create mode 100644 planet/Issues.ocf/Dummy.ocd/Graphics.png
 create mode 100644 planet/Issues.ocf/Dummy.ocd/Script.c
 create mode 100644 planet/Issues.ocf/Dummy.ocd/StringTblDE.txt
 create mode 100644 planet/Issues.ocf/Dummy.ocd/StringTblUS.txt
 create mode 100644 planet/Issues.ocf/System.ocg/Testing.c
 create mode 100644 planet/Issues.ocf/Title.txt

diff --git a/planet/Issues.ocf/Dummy.ocd/DefCore.txt b/planet/Issues.ocf/Dummy.ocd/DefCore.txt
new file mode 100644
index 000000000..c6ed3e59c
--- /dev/null
+++ b/planet/Issues.ocf/Dummy.ocd/DefCore.txt
@@ -0,0 +1,4 @@
+[DefCore]
+id=Dummy
+Version=5,3,0,0
+Category=C4D_StaticBack
diff --git a/planet/Issues.ocf/Dummy.ocd/Graphics.png b/planet/Issues.ocf/Dummy.ocd/Graphics.png
new file mode 100644
index 0000000000000000000000000000000000000000..b15f128edff7c8101c72d07a860ba9bcd2841003
GIT binary patch
literal 137
zcmeAS@N?(olHy`uVBq!ia0vp^93afW1|*O0@9PFqY)RhkE)4%caKYZ?lYt_f1s;*b
z3=G`DAk4@xYmNj^kiEpy*OmPaH@^rQpHA4dc|ajCPZ!4!iOb1<&VTrC&n$P~hyw!;
aKP!V+Dl>2E!(=g_3I<PCKbLh*2~7a}p&?TM

literal 0
HcmV?d00001

diff --git a/planet/Issues.ocf/Dummy.ocd/Script.c b/planet/Issues.ocf/Dummy.ocd/Script.c
new file mode 100644
index 000000000..fb184eaee
--- /dev/null
+++ b/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;
diff --git a/planet/Issues.ocf/Dummy.ocd/StringTblDE.txt b/planet/Issues.ocf/Dummy.ocd/StringTblDE.txt
new file mode 100644
index 000000000..7c701c28c
--- /dev/null
+++ b/planet/Issues.ocf/Dummy.ocd/StringTblDE.txt
@@ -0,0 +1 @@
+Name=Dummy
\ No newline at end of file
diff --git a/planet/Issues.ocf/Dummy.ocd/StringTblUS.txt b/planet/Issues.ocf/Dummy.ocd/StringTblUS.txt
new file mode 100644
index 000000000..7c701c28c
--- /dev/null
+++ b/planet/Issues.ocf/Dummy.ocd/StringTblUS.txt
@@ -0,0 +1 @@
+Name=Dummy
\ No newline at end of file
diff --git a/planet/Issues.ocf/System.ocg/Testing.c b/planet/Issues.ocf/System.ocg/Testing.c
new file mode 100644
index 000000000..48951ad28
--- /dev/null
+++ b/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;
+	}
+}
\ No newline at end of file
diff --git a/planet/Issues.ocf/Title.txt b/planet/Issues.ocf/Title.txt
new file mode 100644
index 000000000..51a71fc90
--- /dev/null
+++ b/planet/Issues.ocf/Title.txt
@@ -0,0 +1 @@
+US:Test cases for reported bugs