diff options
author | Bad Diode <bd@badd10de.dev> | 2021-10-10 18:41:31 +0200 |
---|---|---|
committer | Bad Diode <bd@badd10de.dev> | 2021-10-10 18:41:31 +0200 |
commit | 581116c655df4eb753098e013dd5854df95f7865 (patch) | |
tree | 5439c196d27ef7d6fe93f96b006f2cca24d8170f /tests/types_expected.txt | |
parent | 43861f9d91782d864dc9866eee1d39288bb3a76d (diff) | |
download | bdl-581116c655df4eb753098e013dd5854df95f7865.tar.gz bdl-581116c655df4eb753098e013dd5854df95f7865.zip |
Add type introspection functions and tests
Diffstat (limited to 'tests/types_expected.txt')
-rw-r--r-- | tests/types_expected.txt | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/tests/types_expected.txt b/tests/types_expected.txt new file mode 100644 index 0000000..3a5a2de --- /dev/null +++ b/tests/types_expected.txt | |||
@@ -0,0 +1,53 @@ | |||
1 | (boolean? true) -> true | ||
2 | (boolean? false) -> true | ||
3 | (boolean? 1) -> false | ||
4 | (boolean? 5) -> false | ||
5 | (boolean? "string") -> false | ||
6 | (boolean? (+ 1 2 3)) -> false | ||
7 | (boolean? (not 1)) -> true | ||
8 | (null? true) -> false | ||
9 | (null? false) -> false | ||
10 | (null? 1) -> false | ||
11 | (null? 5) -> false | ||
12 | (null? "string") -> false | ||
13 | (null? (+ 1 2 3)) -> false | ||
14 | (null? (not 1)) -> false | ||
15 | (null? ()) -> true | ||
16 | (string? true) -> false | ||
17 | (string? false) -> false | ||
18 | (string? 1) -> false | ||
19 | (string? 5) -> false | ||
20 | (string? "string") -> true | ||
21 | (string? (+ 1 2 3)) -> false | ||
22 | (string? (not 1)) -> false | ||
23 | (fixnum? true) -> false | ||
24 | (fixnum? false) -> false | ||
25 | (fixnum? 1) -> true | ||
26 | (fixnum? 5) -> true | ||
27 | (fixnum? "string") -> false | ||
28 | (fixnum? (+ 1 2 3)) -> true | ||
29 | (fixnum? (not 1)) -> false | ||
30 | (symbol? true) -> false | ||
31 | (symbol? false) -> false | ||
32 | (symbol? 1) -> false | ||
33 | (symbol? +) -> false | ||
34 | (symbol? "string") -> false | ||
35 | (symbol? (+ 1 2 3)) -> false | ||
36 | (symbol? (not 1)) -> false | ||
37 | (pair? false) -> false | ||
38 | (pair? 1) -> false | ||
39 | (pair? 5) -> false | ||
40 | (pair? "string") -> false | ||
41 | (pair? (+ 1 2 3)) -> false | ||
42 | (pair? (not 1)) -> false | ||
43 | (pair? (cons 1 2)) -> true | ||
44 | (pair? (list 1 2 3)) -> true | ||
45 | (procedure? false) -> false | ||
46 | (procedure? 1) -> false | ||
47 | (procedure? 5) -> false | ||
48 | (procedure? "string") -> false | ||
49 | (procedure? (+ 1 2 3)) -> false | ||
50 | (procedure? (not 1)) -> false | ||
51 | (procedure? +) -> true | ||
52 | (procedure? -) -> true | ||
53 | (procedure? procedure?) -> true | ||