From a06b95c052b4e70fe6fe61f7d90874fb6be00b56 Mon Sep 17 00:00:00 2001 From: Leah Neukirchen Date: Sat, 19 Nov 2022 17:23:53 +0100 Subject: add ok->, ok->>, err->, err->> to -> --- tests/test.mew | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'tests') diff --git a/tests/test.mew b/tests/test.mew index 948837a..52de20a 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -370,7 +370,13 @@ (into '() (cross-product '(a b c)))) (test '() (into '() (cross-product)))) -; -> +(test-group "->" + (test 6 (-> 3 -> inc -> + 2)) + (test 9 (-> #f -> or 7 -> + 2)) + (test 9 (-> 6 ->> or 7 -> + 2)) + (test 7 (-> 5 ok-> inc ok-> + 1)) + (test (err 7) (-> (err 7) ok-> inc ok-> + 1)) + (test 7 (-> (err 6) err-> + 1))) ; fun-> -- cgit 1.4.1