diff options
author | Bad Diode <bd@badd10de.dev> | 2021-10-10 13:43:05 +0200 |
---|---|---|
committer | Bad Diode <bd@badd10de.dev> | 2021-10-10 13:43:05 +0200 |
commit | 8f0c21094bc69a9adbebc42a4fc4744ed0501428 (patch) | |
tree | 58a3fd5c4b29649a46dc45066011be4b00c1f46e /tests/booleans_expected.txt | |
parent | 4673fde605090320fbab227e56bb085eec97362a (diff) | |
download | bdl-8f0c21094bc69a9adbebc42a4fc4744ed0501428.tar.gz bdl-8f0c21094bc69a9adbebc42a4fc4744ed0501428.zip |
Add if primitive procedure
Diffstat (limited to 'tests/booleans_expected.txt')
-rw-r--r-- | tests/booleans_expected.txt | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/booleans_expected.txt b/tests/booleans_expected.txt index 81f0313..d05d314 100644 --- a/tests/booleans_expected.txt +++ b/tests/booleans_expected.txt | |||
@@ -32,3 +32,12 @@ | |||
32 | (or false true true) -> true | 32 | (or false true true) -> true |
33 | (or (not false) true true) -> true | 33 | (or (not false) true true) -> true |
34 | (or (not true) false) -> false | 34 | (or (not true) false) -> false |
35 | (if true true false) -> true | ||
36 | (if false true false) -> false | ||
37 | (if true (+ 1 2 3) 0) -> 6 | ||
38 | (if false (+ 1 2 3) 0) -> 0 | ||
39 | (if (or true false) (+ 1 2 3) (+ 7 8 9)) -> 6 | ||
40 | (if (or false false) (+ 1 2 3) (+ 7 8 9)) -> 24 | ||
41 | (if (or (+ 1 2 3) false) (+ 1 2 3) (+ 7 8 9)) -> 6 | ||
42 | (if true 7) -> 7 | ||
43 | (if false 7) -> () | ||