Add tests for linear execution

Author: engboris

test/behavior/automata.sg

@@ -26,26 +26,20 @@ end
 
 empty = {}.
 
-expect = galaxy expect = {}. end
-tested :: empty [expect].
+tested :=: {}.
 tested = process #e. #a1. #kill. end
 
-expect = galaxy expect = {}. end
-tested :: empty [expect].
+tested :=: {}.
 tested = process #0. #a1. #kill. end
 
-expect = galaxy expect = {}. end
-tested :: empty [expect].
+tested :=: {}.
 tested = process #1. #a1. #kill. end
 
-expect = galaxy expect = { accept }. end
-tested :: empty [expect].
+tested :=: accept.
 tested = process +i(0:0:0:e). #a1. #kill. end
 
-expect = galaxy expect = {}. end
-tested :: empty [expect].
+tested :=: {}.
 tested = process +i(0:1:0:e). #a1. #kill. end
 
-expect = galaxy expect = {}. end
-tested :: empty [expect].
+tested :=: {}.
 tested = process +i(1:1:0:e). #a1. #kill. end

test/behavior/linear.sg

@@ -0,0 +1,14 @@
+1 = +nat(s(0)).
+2 = +nat(s(s(0))).
+3 = +nat(s(s(s(0)))).
+
+nat = -nat(s(X)) +nat(X).
+
+tested :=: +nat(0).
+tested = linear-exec #1 #nat end
+
+tested :=: +nat(s(0)).
+tested = linear-exec #2 #nat end
+
+tested :=: +nat(s(s(0))).
+tested = linear-exec #3 #nat end

test/behavior/prolog.sg

@@ -5,18 +5,14 @@ add =
 
 empty = {}.
 
-expect = galaxy expect = 0. end
-tested :: empty [expect].
+tested :=: 0.
 tested = #add (@-add(0 0 R) R).
 
-expect = galaxy expect = s(0). end
-tested :: empty [expect].
+tested :=: s(0).
 tested = #add (@-add(s(0) 0 R) R).
 
-expect = galaxy expect = s(0). end
-tested :: empty [expect].
+tested :=: s(0).
 tested = #add (@-add(0 s(0) R) R).
 
-expect = galaxy expect = s(s(s(s(0)))). end
-tested :: empty [expect].
+tested :=: s(s(s(s(0)))).
 tested = #add (@-add(s(s(0)) s(s(0)) R) R).