| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'data/unit-testing/count.fate')
| -rw-r--r-- | data/unit-testing/count.fate | 68 |
1 files changed, 34 insertions, 34 deletions
diff --git a/data/unit-testing/count.fate b/data/unit-testing/count.fate index 2c54998..05a8c59 100644 --- a/data/unit-testing/count.fate +++ b/data/unit-testing/count.fate @@ -4,57 +4,57 @@ (set! test_name ( COUNT )) -(assert! (= (count 10 (range 0 60 1)) 1) - [FAILED] (var test_name) Failed to find 10 in range 0 60 1. +(assert! (= (list:count 10 (list:range 0 60 1)) 1) + [FAILED] (var test_name) Failed to find 10 in list:range 0 60 1. ) (global (list int) li) -(add_all! (range 0 10 1) li) -(add_all! (range 0 10 1) li) -(add_all! (range 0 10 1) li) -(add_all! (range 0 10 1) li) +(list:add_all! (list:range 0 10 1) li) +(list:add_all! (list:range 0 10 1) li) +(list:add_all! (list:range 0 10 1) li) +(list:add_all! (list:range 0 10 1) li) -(assert! (= (count 10 li) 4) +(assert! (= (list:count 10 li) 4) [FAILED] (var test_name) Failed to find 10 four times in li. ) (global (set int) si) -(add_all! (range 0 10 1) si) -(add_all! (range 0 10 1) si) -(add_all! (range 0 10 1) si) -(add_all! (range 0 10 1) si) +(list:add_all! (list:range 0 10 1) si) +(list:add_all! (list:range 0 10 1) si) +(list:add_all! (list:range 0 10 1) si) +(list:add_all! (list:range 0 10 1) si) -(assert! (= (count 10 si) 1) +(assert! (= (set:count 10 si) 1) [FAILED] (var test_name) Failed to find 10 exactly once in si. ) (global (list string) ls) -(add! test0 ls) -(add! test1 ls) -(add! test2 ls) -(add! test3 ls) +(list:add! test0 ls) +(list:add! test1 ls) +(list:add! test2 ls) +(list:add! test3 ls) -(assert! (= (count test0 ls) 1) +(assert! (= (list:count test0 ls) 1) [FAILED] (var test_name) Failed to find test0 exactly once in ls. ) -(add! test0 ls) -(add! test1 ls) -(add! test2 ls) -(add! test3 ls) -(add! test0 ls) -(add! test1 ls) -(add! test2 ls) -(add! test3 ls) -(add! test0 ls) -(add! test1 ls) -(add! test2 ls) -(add! test3 ls) - -(assert! (= (count test0 ls) 4) +(list:add! test0 ls) +(list:add! test1 ls) +(list:add! test2 ls) +(list:add! test3 ls) +(list:add! test0 ls) +(list:add! test1 ls) +(list:add! test2 ls) +(list:add! test3 ls) +(list:add! test0 ls) +(list:add! test1 ls) +(list:add! test2 ls) +(list:add! test3 ls) + +(assert! (= (list:count test0 ls) 4) [FAILED] (var test_name) Failed to find test0 four times in ls. ) @@ -62,14 +62,14 @@ (local int i) (for (set! i 0) (=< i 10) (set! i (+ i 1)) - (add! (= (mod i 2) 0) lb) + (list:add! (= (mod i 2) 0) lb) ) -(assert! (= (count (true) lb) 6) +(assert! (= (list:count (true) lb) 6) [FAILED] (var test_name) Failed to find six even numbers. ) -(assert! (= (count (false) lb) 5) +(assert! (= (list:count (false) lb) 5) [FAILED] (var test_name) Failed to find four odd numbers. ) |


