add: geadline test

test.sh

@@ -6,7 +6,12 @@ tester()
 		cat src/*.🗿 tests/$val.🗿 tests/test.🗿 >tmp.🗿
 		golemc tmp.🗿 > tmp.asm
 		orgaasm tmp.asm tmp.rom
+		if [ $val == "geadline" ]
+		then
+			orgaemu tmp.rom < tests/$val.input
+		else
 			orgaemu tmp.rom
+		fi
 		echo
 	done
 }

tests/geadline.input

@@ -0,0 +1,3 @@
+yo
+bozo
+z^[[Dbo^[[C^[[C^[[Co

tests/geadline.🗿

@@ -0,0 +1,22 @@
+main()
+{
+	local ptr;
+
+	name = "geadline";
+
+	ptr = geadline("");
+	test_str(ptr, "yo", "");
+	free(ptr);
+	
+	ptr = geadline("");
+	test_str(ptr, "bozo", "");
+	free(ptr);
+	
+	ptr = geadline("");
+	test_str(ptr, "bozo", "arrow");
+	free(ptr);
+	
+	ptr = geadline("");
+	test_num(ptr, 0, "");
+	free(ptr);
+}