aboutsummaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorBad Diode <bd@badd10de.dev>2021-10-13 16:44:17 +0200
committerBad Diode <bd@badd10de.dev>2021-10-13 16:44:17 +0200
commited1f406102738812fafa5e49ee131fe06c177687 (patch)
tree0bb648c18b6f96e0f020a9f8e664df330199b51b /tests
parentb8bad3bf5af3261f25780a8cd8b90a659fe29bab (diff)
downloadbdl-ed1f406102738812fafa5e49ee131fe06c177687.tar.gz
bdl-ed1f406102738812fafa5e49ee131fe06c177687.zip
Add a lot of primitive types
Diffstat (limited to 'tests')
-rw-r--r--tests/booleans_expected.txt4
-rw-r--r--tests/lists_expected.txt2
-rw-r--r--tests/types_expected.txt18
3 files changed, 13 insertions, 11 deletions
diff --git a/tests/booleans_expected.txt b/tests/booleans_expected.txt
index f47d32f..43f67e5 100644
--- a/tests/booleans_expected.txt
+++ b/tests/booleans_expected.txt
@@ -33,11 +33,11 @@
33(if (or false false) (+ 1 2 3) (+ 7 8 9)) -> 24 33(if (or false false) (+ 1 2 3) (+ 7 8 9)) -> 24
34(if (or (+ 1 2 3) false) (+ 1 2 3) (+ 7 8 9)) -> 6 34(if (or (+ 1 2 3) false) (+ 1 2 3) (+ 7 8 9)) -> 6
35(if true 7) -> 7 35(if true 7) -> 7
36(if false 7) -> () 36(if false 7) ->
37(cond ((and true true true) 1) ((or true true false) 2) (else 3)) -> 1 37(cond ((and true true true) 1) ((or true true false) 2) (else 3)) -> 1
38(cond ((and true true false) 1) ((or true true false) 2) (else 3)) -> 2 38(cond ((and true true false) 1) ((or true true false) 2) (else 3)) -> 2
39(cond ((and true true false) 1) ((or false false false) 2) (else 3)) -> 3 39(cond ((and true true false) 1) ((or false false false) 2) (else 3)) -> 3
40(cond ((and true true true) 1) ((or true true false) 2)) -> () 40(cond ((and true true true) 1) ((or true true false) 2)) ->
41(cond ((and true true true) (+ 1 2 3)) ((or true true false) 2) (else 3)) -> 6 41(cond ((and true true true) (+ 1 2 3)) ((or true true false) 2) (else 3)) -> 6
42(< 1 2 3) -> true 42(< 1 2 3) -> true
43(< 3 2 1) -> false 43(< 3 2 1) -> false
diff --git a/tests/lists_expected.txt b/tests/lists_expected.txt
index 9030886..6ddb71b 100644
--- a/tests/lists_expected.txt
+++ b/tests/lists_expected.txt
@@ -1,4 +1,4 @@
1(list) -> () 1(list) ->
2(list 1) -> (1) 2(list 1) -> (1)
3(list 1 2) -> (1 2) 3(list 1 2) -> (1 2)
4(list 1 2 3) -> (1 2 3) 4(list 1 2 3) -> (1 2 3)
diff --git a/tests/types_expected.txt b/tests/types_expected.txt
index 3a5a2de..58eaa7f 100644
--- a/tests/types_expected.txt
+++ b/tests/types_expected.txt
@@ -5,14 +5,14 @@
5(boolean? "string") -> false 5(boolean? "string") -> false
6(boolean? (+ 1 2 3)) -> false 6(boolean? (+ 1 2 3)) -> false
7(boolean? (not 1)) -> true 7(boolean? (not 1)) -> true
8(null? true) -> false 8(nil? true) -> false
9(null? false) -> false 9(nil? false) -> false
10(null? 1) -> false 10(nil? 1) -> false
11(null? 5) -> false 11(nil? 5) -> false
12(null? "string") -> false 12(nil? "string") -> false
13(null? (+ 1 2 3)) -> false 13(nil? (+ 1 2 3)) -> false
14(null? (not 1)) -> false 14(nil? (not 1)) -> false
15(null? ()) -> true 15(nil? ()) -> true
16(string? true) -> false 16(string? true) -> false
17(string? false) -> false 17(string? false) -> false
18(string? 1) -> false 18(string? 1) -> false
@@ -34,6 +34,8 @@
34(symbol? "string") -> false 34(symbol? "string") -> false
35(symbol? (+ 1 2 3)) -> false 35(symbol? (+ 1 2 3)) -> false
36(symbol? (not 1)) -> false 36(symbol? (not 1)) -> false
37(symbol? 'a) -> true
38(symbol? 'c) -> true
37(pair? false) -> false 39(pair? false) -> false
38(pair? 1) -> false 40(pair? 1) -> false
39(pair? 5) -> false 41(pair? 5) -> false