From 581116c655df4eb753098e013dd5854df95f7865 Mon Sep 17 00:00:00 2001 From: Bad Diode Date: Sun, 10 Oct 2021 18:41:31 +0200 Subject: Add type introspection functions and tests --- tests/booleans_expected.txt | 7 ------ tests/types_expected.txt | 53 +++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 53 insertions(+), 7 deletions(-) create mode 100644 tests/types_expected.txt (limited to 'tests') 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 @@ -(boolean? true) -> true -(boolean? false) -> true -(boolean? 1) -> false -(boolean? 5) -> false -(boolean? "string") -> false -(boolean? (+ 1 2 3)) -> false -(boolean? (not 1)) -> true (not true) -> false (not false) -> true (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 @@ +(boolean? true) -> true +(boolean? false) -> true +(boolean? 1) -> false +(boolean? 5) -> false +(boolean? "string") -> false +(boolean? (+ 1 2 3)) -> false +(boolean? (not 1)) -> true +(null? true) -> false +(null? false) -> false +(null? 1) -> false +(null? 5) -> false +(null? "string") -> false +(null? (+ 1 2 3)) -> false +(null? (not 1)) -> false +(null? ()) -> true +(string? true) -> false +(string? false) -> false +(string? 1) -> false +(string? 5) -> false +(string? "string") -> true +(string? (+ 1 2 3)) -> false +(string? (not 1)) -> false +(fixnum? true) -> false +(fixnum? false) -> false +(fixnum? 1) -> true +(fixnum? 5) -> true +(fixnum? "string") -> false +(fixnum? (+ 1 2 3)) -> true +(fixnum? (not 1)) -> false +(symbol? true) -> false +(symbol? false) -> false +(symbol? 1) -> false +(symbol? +) -> false +(symbol? "string") -> false +(symbol? (+ 1 2 3)) -> false +(symbol? (not 1)) -> false +(pair? false) -> false +(pair? 1) -> false +(pair? 5) -> false +(pair? "string") -> false +(pair? (+ 1 2 3)) -> false +(pair? (not 1)) -> false +(pair? (cons 1 2)) -> true +(pair? (list 1 2 3)) -> true +(procedure? false) -> false +(procedure? 1) -> false +(procedure? 5) -> false +(procedure? "string") -> false +(procedure? (+ 1 2 3)) -> false +(procedure? (not 1)) -> false +(procedure? +) -> true +(procedure? -) -> true +(procedure? procedure?) -> true -- cgit v1.2.1