Big testing update

tests/sprint4/test/sp4_cg_add.alpha

@@ -0,0 +1,10 @@
+type main: integer -> integer
+function test: main
+	
+test (a) := {
+	[integer:x; integer:y]
+	y := 1;
+	x := 3;
+	y := x + y;
+	return y;
+}