| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'data')
| -rw-r--r-- | data/unit-testing/access.fate | 6 | ||||
| -rw-r--r-- | data/unit-testing/ptr_and_at.fate | 12 |
2 files changed, 10 insertions, 8 deletions
diff --git a/data/unit-testing/access.fate b/data/unit-testing/access.fate index 6079d7d..c7df9e6 100644 --- a/data/unit-testing/access.fate +++ b/data/unit-testing/access.fate @@ -9,13 +9,13 @@ (global int i) (for (set! i 0) (=< i 10) (set! i (+ i 1)) - (assert! (= (access i li) (var i)) + (assert! (= (list:access i li) (var i)) [FAILED] ACCESS assert failed on (var i) for li. ) - (assert! (= (access i li_ptr) (var i)) + (assert! (= (list:access i (at 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! (= (list:access i (list:range 0 10 1)) (var i)) [FAILED] ACCESS assert failed on (var i) with for range. ) ) diff --git a/data/unit-testing/ptr_and_at.fate b/data/unit-testing/ptr_and_at.fate index 9b12862..b98850d 100644 --- a/data/unit-testing/ptr_and_at.fate +++ b/data/unit-testing/ptr_and_at.fate @@ -27,6 +27,8 @@ ((ptr (list (ptr int))) int_ptr_list_ptr) ) +(global test_struct0 test_struct0) + (global (list test_struct0) test_struct0_list) (declare_structure test_struct1 @@ -80,11 +82,11 @@ (int_ptr_list_ptr (ptr ts0.int_ptr_list)) ) -(add! (ptr i) ts0.int_ptr_list) -(add! (ptr j) ts0.int_ptr_list) -(add! (at int_ptr_ptr) ts0.int_ptr_list) -(add! (var ts0.int_ptr0) ts0.int_ptr_list) -(add! (var ts0.int_ptr1) ts0.int_ptr_list) +(list:add! (ptr i) ts0.int_ptr_list) +(list:add! (ptr j) ts0.int_ptr_list) +(list:add! (at int_ptr_ptr) ts0.int_ptr_list) +(list:add! (var ts0.int_ptr0) ts0.int_ptr_list) +(list:add! (var ts0.int_ptr1) ts0.int_ptr_list) (assert! (= (var ts0.int_ptr_list.0) (var i_ptr) (ptr i)) [FAILED] (var test_name) equality 3.) (assert! (= (var ts0.int_ptr_list.1) (var j_ptr) (ptr j)) [FAILED] (var test_name) equality 4.) |