add: test init

test.sh

@@ -0,0 +1,4 @@
+cat src/$1.🗿 tests/$1.🗿 tests/test.🗿 >tmp.🗿
+golemc tmp.🗿 > tmp.asm
+orgaasm tmp.asm tmp.rom
+orgaemu tmp.rom

tests/test.🗿

@@ -0,0 +1,31 @@
+putstr(str){
+	local i;
+	i = 0;
+	loop {
+		if ([str + i] == 0)
+			return;
+		wrt [str + i];
+		i++;
+	}
+}
+
+test(value, reach_value, error_message)
+{
+	putstr(name);
+	if (value != reach_value)
+	{
+		putstr(": ERROR: ");
+		putstr(", ");
+		putstr(error_message);
+		putstr(" [");
+		putstr(reach_value);
+		putstr(" != ");
+		putstr(value);
+		putstr("]");
+	}
+	else
+	{
+		putstr(": OK: ");
+	}
+	wrt '\n';
+}