From 034153205de05ef2a4facf7aded9912ce8dfb6b5 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Sat, 1 May 2021 20:58:23 +0200 Subject: Suffixes imperative stuff with '!', adds ({set,list} ... ) shorthands. --- data/unit-testing/access.fate | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'data/unit-testing/access.fate') 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!) -- cgit v1.2.3-70-g09d2