summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'data/unit-testing/access.fate')
-rw-r--r--data/unit-testing/access.fate14
1 files changed, 7 insertions, 7 deletions
diff --git a/data/unit-testing/access.fate b/data/unit-testing/access.fate
index fe92293..e665b69 100644
--- a/data/unit-testing/access.fate
+++ b/data/unit-testing/access.fate
@@ -3,23 +3,23 @@
(global (list int) li)
(global (ptr (list int)) li_ptr)
-(set li (range 0 10 1))
-(set li_ptr (ptr li))
+(set! li (range 0 10 1))
+(set! li_ptr (ptr li))
(global int i)
-(for (set i 0) (=< i 10) (set i (+ i 1))
- (assert (= (access i li) (var i))
+(for (set! i 0) (=< i 10) (set! i (+ i 1))
+ (assert! (= (access i li) (var i))
[FAILED] ACCESS assert failed on (var i) for li.
)
- (assert (= (access i li_ptr) (var i))
+ (assert! (= (access i li_ptr) (var i))
[FAILED] ACCESS assert failed on (var i) with for li_ptr.
)
- (assert (= (access i (range 0 10 1)) (var i))
+ (assert! (= (access i (range 0 10 1)) (var i))
[FAILED] ACCESS assert failed on (var i) with for range.
)
)
[COMPLETED] ACCESS
-(end)
+(end!)