X-Git-Url: http://git.joshuawise.com/firearm.git/blobdiff_plain/0bd4b39b04997ee55e3b3e7cadd42c95d8a56fa1..392d1bec43dcfb806fbdf77380c334f2cdc84778:/tests/testbench.c

diff --git a/tests/testbench.c b/tests/testbench.c
new file mode 100644
index 0000000..ff9f96c
--- /dev/null
+++ b/tests/testbench.c
@@ -0,0 +1,109 @@
+extern void putc(unsigned char c);
+
+void puts(unsigned char *s)
+{
+	while (*s)
+		putc(*(s++));
+}
+
+void puthex(unsigned int x)
+{
+	unsigned char *hex = "0123456789ABCDEF";
+	int i;
+	
+	for (i = 7; i >= 0; i--)
+		putc(hex[(x >> (i * 4)) & 0xF]);
+}
+
+#define putchar putc
+#include "ack.c"
+#include "j4cbo.c"
+#include "corecurse.c"
+
+int fact(int n)
+{
+	if (n == 0)
+		return 1;
+	else
+		return n * fact(n-1);
+}
+
+void facttest()
+{
+	if (fact(10) != 3628800)
+		puts("FAIL\n");
+	else
+		puts("PASS\n");
+}
+
+struct tests {
+	char *name;
+	void (*test)();
+};
+
+extern int ldm_bonehead();
+
+__asm__(
+".globl ldm_bonehead\n"
+"ldm_bonehead:;"
+"mov r3, lr;"
+"bl 1f;"
+"nop;"
+"nop;"
+"nop;"
+"nop;"
+"nop;"
+"nop;"
+"nop;"
+"nop;"
+"nop;"
+"mov pc, r3\n;"
+"1:\n"
+"ldr r2, =0x00002FE0;"
+"ldr r1, =0x0000004C;"
+"mov ip, sp;"
+"stmdb sp!, {fp, ip, lr, pc};"
+"mov r0, #0x00880000;"
+"ldmia sp, {fp, sp, pc};"
+"mul r0, r1, r2;"
+"nop;"
+"nop;\n"
+);
+
+void ldm_tester()
+{
+	int x = ldm_bonehead();
+	if (x != 0x00880000)
+	{
+		puts("FAIL: result was ");
+		puthex(x);
+		puts("\n");
+	} else
+		puts("PASS\n");
+}
+
+struct tests tlist[] = {
+	{"ldm pc/mul", ldm_tester},
+	{"fact", facttest},
+	{"j4cbo", j4cbo},
+	{"ack", acktest},
+	{"corecurse", corecurse},
+	{0, 0}};
+
+int main()
+{
+	struct tests *t;
+	
+	puts("Testbench running\n");
+	
+	for (t = tlist; t->name; t++)
+	{
+		puts("Running ");
+		puts(t->name);
+		puts(": ");
+		t->test();
+	}
+	puts("Done!\n");
+	
+	return 0;
+}