🤯🤯🤯🤯🤯🤯🤯🤯🤯

tests/programs/test/fib.alpha

@@ -0,0 +1 @@
+(* TODO: Prints out fib sequence. *)

tests/programs/test/ll.alpha

@@ -0,0 +1 @@
+(* TODO: creates a linked list and prints out the chain. *)

tests/sprint4/test/sp4_cg_add.alpha

@@ -1,35 +1,14 @@
 (* TEST: [-asc -tc -cg -ir] *)
 
-type string: 1 -> character
-type BooleanXBoolean: [Boolean: x; Boolean: y]
-type characterXcharacter: [character: x; character: y]
-type integerXinteger: [integer: x; integer: y]
-
-type Boolean2Boolean: Boolean -> Boolean
-type integer2integer: integer -> integer
-type character2integer: character -> integer
-type Boolean2integer0: Boolean -> integer
-type string2integer: string -> integer
-type integerXinteger2integer: integerXinteger -> integer
-type integerXinteger2Boolean: integerXinteger -> Boolean
-type characterXcharacter2Boolean: characterXcharacter -> Boolean
-type BooleanXBoolean2Boolean: BooleanXBoolean -> Boolean
-type integer2address: integer -> address
-type address2integer: address -> integer
-
-external function printInteger: integer2integer
-external function printCharacter: character2integer
-external function printBoolean: Boolean2integer
-
-function entry: string2integer
+#include "std.alpha"
 	
 entry (arg) := {
 	[integer:x; integer:y; integer: result]
+
 	y := 1;
 	x := 3;
 	y := x + y;
 
     result := printInteger(y);
-
 	return y;
 }

tests/sprint4/test/sp4_cg_and.alpha

@@ -1,11 +1,13 @@
 (* TEST: [-asc -tc -cg -ir] *)
-type main: integer -> integer
-function test: main
 
-test (a) := {
-        [Boolean:b; Boolean: c; Boolean: d]
-        c := true;
-        d := false;
-        d := c & d;
-        return 1;
+#include "std.alpha"
+
+entry (arg) := {
+    [Boolean:b; Boolean: c; Boolean: d]
+
+    z := true;
+    d := false;
+    d := c & d;
+    
+    return 1;
 }

tests/sprint4/test/sp4_cg_demo.alpha

@@ -1,8 +0,0 @@
-type main: string -> integer
-function entry: main
-
-entry(arg) := {
-	  [integer:x]
- 	  x := 3 + 2 * 8;
-	  return x;
- }

tests/sprint4/test/sp4_cg_demo.cg

@@ -1,9 +0,0 @@
-type main: string -> integer
-function entry: main
-
-entry(arg) := {
-	  [integer:x; Boolean b]
- 	  x := 3 + 2 * 8;
-	  b := x < 1;
-	  return 0;
- }

tests/sprint4/test/sp4_cg_div.alpha

@@ -1,11 +1,13 @@
 (* TEST: [-asc -tc -cg -ir] *)
-type main: integer -> integer
-function test: main
 
-test (a) := {
-        [integer:x; integer:y]
-        y := 1;
-        x := 3;
-        y := x / y;
-        return y;
+#include "std.alpha"
+
+entry (arg) := {
+    [integer:x; integer:y]
+
+    y := 1;
+    x := 3;
+    y := x / y;
+    
+    return y;
 }

tests/sprint4/test/sp4_cg_equal_to.alpha

@@ -1,11 +1,13 @@
 (* TEST: [-asc -tc -cg -ir] *)
-type main: integer -> integer
-function test: main
 
-test (a) := {
-        [Boolean: b; integer: x; integer: y]
-        x := 1;
+#include "std.alpha"
+
+entry (arg) := {
+    [Boolean: b; integer: x; integer: y]
+
+    x := 1;
 	y := 2;
 	b := x = y;
-        return 1;
+    
+    return 1;
 }

tests/sprint4/test/sp4_cg_fib.alpha

@@ -1,18 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-

tests/sprint4/test/sp4_cg_less_than.alpha

@@ -1,11 +1,13 @@
 (* TEST: [-asc -tc -cg -ir] *)
-type main: integer -> integer
-function test: main
 
-test (a) := {
-        [Boolean: b; integer: x; integer: y]
-character        x := 1;
+#include "std.alpha"
+
+entry (arg) := {
+    [Boolean: b; integer: x; integer: y]
+
+    x := 1;
 	y := 2;
 	b := x < y;
-        return 1;
+    
+    return 1;
 }

tests/sprint4/test/sp4_cg_mod.alpha

@@ -1,11 +1,13 @@
 (* TEST: [-asc -tc -cg -ir] *)
-type main: integer -> integer
-function test: main
 
-test (a) := {
-        [integer:x; integer:y]
-        y := 1;
-        x := 3;
-        y := x % y;
-        return y;
+#include "std.alpha"
+
+entry (arg) := {
+    [integer:x; integer:y]
+
+    y := 1;
+    x := 3;
+    y := x % y;
+    
+    return y;
 }

tests/sprint4/test/sp4_cg_mult.alpha

@@ -1,11 +1,13 @@
 (* TEST: [-asc -tc -cg -ir] *)
-type main: integer -> integer
-function test: main
 
-test (a) := {
-        [integer:x; integer:y]
-        y := 1;
-        x := 3;
-        y := x * x;
-        return y;
+#include "std.alpha"
+
+entry (arg) := {
+    [integer:x; integer:y]
+
+    y := 1;
+    x := 3;
+    y := x * x;
+    
+    return y;
 }

tests/sprint4/test/sp4_cg_neg.alpha

@@ -1,10 +1,12 @@
 (* TEST: [-asc -tc -cg -ir] *)
-type main: integer -> integer
-function test: main
 
-test (a) := {
-        [integer:x; integer:y]
-        x := 3;
-        y := -x;
-        return y;
+#include "std.alpha"
+
+entry (arg) := {
+    [integer:x; integer:y]
+    
+    x := 3;
+    y := -x;
+    
+    return y;
 }

tests/sprint4/test/sp4_cg_not.alpha

@@ -1,10 +1,12 @@
 (* TEST: [-asc -tc -cg -ir] *)
-type main: integer -> integer
-function test: main
 
-test (a) := {
-        [Boolean: c; Boolean: d]
-        c := true;
-        d := !c;
-        return 1;
+#include "std.alpha"
+
+entry (arg) := {
+    [Boolean: c; Boolean: d]
+
+    c := true;
+    d := !c;
+    
+    return 1;
 }

tests/sprint4/test/sp4_cg_or.alpha

@@ -1,11 +1,13 @@
 (* TEST: [-asc -tc -cg -ir] *)
-type main: integer -> integer
-function test: main
 
-test (a) := {
-        [Boolean:b; Boolean: c; Boolean: d]
-        c := true;
-        d := false;
-        d := c | d;
-        return 1;
+#include "std.alpha"
+
+entry (arg) := {
+    [Boolean:b; Boolean: c; Boolean: d]
+
+    c := true;
+    d := false;
+    d := c | d;
+    return 1;
+    
 }

tests/sprint4/test/sp4_cg_sub.alpha

@@ -1,11 +1,13 @@
 (* TEST: [-asc -tc -cg -ir] *)
-type main: integer -> integer
-function test: main
 
-test (a) := {
-        [integer:x; integer:y]
-        y := 1;
-        x := 3;
-        y := x - y;
-        return y;
+#include "std.alpha"
+
+entry (arg) := {
+    [integer:x; integer:y]
+    
+    y := 1;
+    x := 3;
+    y := x - y;
+    
+    return y;
 }