diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/booleans_expected.txt | 4 | ||||
-rw-r--r-- | tests/lists_expected.txt | 2 | ||||
-rw-r--r-- | tests/types_expected.txt | 18 |
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 |