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 | |
| parent | 4673fde605090320fbab227e56bb085eec97362a (diff) | |
| download | bdl-8f0c21094bc69a9adbebc42a4fc4744ed0501428.tar.gz bdl-8f0c21094bc69a9adbebc42a4fc4744ed0501428.zip | |
Add if primitive procedure
Diffstat (limited to 'tests')
| -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) -> () | ||