From bfc060584e91398831dee85455e3df0fbbddbf57 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Sat, 15 Aug 2020 00:59:52 +0200 Subject: Finding some issues, as expected. --- data/tests/loops.fate | 22 ++++++++++------------ 1 file changed, 10 insertions(+), 12 deletions(-) (limited to 'data/tests/loops.fate') diff --git a/data/tests/loops.fate b/data/tests/loops.fate index db7f212..47ad632 100644 --- a/data/tests/loops.fate +++ b/data/tests/loops.fate @@ -1,10 +1,8 @@ (fate_version 1) -(require include/data_types.fate) - -(declare_variable int i) -(declare_variable int test_val) -(declare_variable int test_val2) +(global int i) +(global int test_val) +(global int test_val2) (set test_val 0) (set test_val2 0) @@ -62,8 +60,8 @@ (assert (= (var test_val2) 1) FAILED: do while loop E) (assert (= (var i) 1) FAILED: do while loop F) -(declare_variable int_list int_list_a) -(declare_variable int_list int_list_b) +(global (list int) int_list_a) +(global (list int) int_list_b) (for (set i 0) (< (var i) 10) (set i (+ (var i) 1)) (add_element 1 int_list_a) @@ -74,8 +72,8 @@ (set test_val2 0) (foreach int_list_a a - (set test_val (+ (var test_val) (param a))) - (set test_val2 (+ (var test_val2) (param a))) + (set test_val (+ (var test_val) (var a))) + (set test_val2 (+ (var test_val2) (var a))) ) (assert (= (var test_val) 10) FAILED: for each loop A) (assert (= (var test_val2) 10) FAILED: for each loop B) @@ -125,9 +123,9 @@ (set test_val 0) (foreach int_list_a a - (set test_val (+ (var test_val) (param a))) + (set test_val (+ (var test_val) (var a))) (break) - (set test_val2 (+ (var test_val2) (param a))) + (set test_val2 (+ (var test_val2) (var a))) ) (assert (= (var test_val) 1) FAILED: break foreach loop A) (assert (= (var test_val2) 0) FAILED: break foreach loop B) @@ -135,7 +133,7 @@ (clear int_list_b) (foreach int_list_a a - (add_element (param a) int_list_b) + (add_element (var a) int_list_b) (for (set i 0) (< (var i) 1) (set i (+ (var i) 1)) (add_element (var i) int_list_b) ) -- cgit v1.2.3-70-g09d2