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 | |
| parent | 43861f9d91782d864dc9866eee1d39288bb3a76d (diff) | |
| download | bdl-581116c655df4eb753098e013dd5854df95f7865.tar.gz bdl-581116c655df4eb753098e013dd5854df95f7865.zip | |
Add type introspection functions and tests
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/booleans_expected.txt | 7 | ||||
| -rw-r--r-- | tests/types_expected.txt | 53 |
2 files changed, 53 insertions, 7 deletions
diff --git a/tests/booleans_expected.txt b/tests/booleans_expected.txt index 5919767..f47d32f 100644 --- a/tests/booleans_expected.txt +++ b/tests/booleans_expected.txt | |||
| @@ -1,10 +1,3 @@ | |||
| 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 | (not true) -> false | 1 | (not true) -> false |
| 9 | (not false) -> true | 2 | (not false) -> true |
| 10 | (not (not true)) -> true | 3 | (not (not true)) -> true |
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 | ||