From e4a7b6c397c430e3aa5f6fec63eeb91236069c27 Mon Sep 17 00:00:00 2001 From: ubq323 Date: Tue, 6 Aug 2024 22:20:18 +0100 Subject: tests --- tests/strlit.bth | 3 +++ tests/strlit.out | 3 +++ tests/sumrec_local2.bth | 8 ++++++++ tests/sumrec_local2.out | 2 ++ 4 files changed, 16 insertions(+) create mode 100644 tests/strlit.bth create mode 100644 tests/strlit.out create mode 100644 tests/sumrec_local2.bth create mode 100644 tests/sumrec_local2.out diff --git a/tests/strlit.bth b/tests/strlit.bth new file mode 100644 index 0000000..5894375 --- /dev/null +++ b/tests/strlit.bth @@ -0,0 +1,3 @@ +(say "hello") +(say 'hello) +(say (= "hello" 'hello)) diff --git a/tests/strlit.out b/tests/strlit.out new file mode 100644 index 0000000..60baf7c --- /dev/null +++ b/tests/strlit.out @@ -0,0 +1,3 @@ +hello +hello +true diff --git a/tests/sumrec_local2.bth b/tests/sumrec_local2.bth new file mode 100644 index 0000000..c9b9703 --- /dev/null +++ b/tests/sumrec_local2.bth @@ -0,0 +1,8 @@ +(defn (f x) + (defn (f' x acc) + (if (< x 1) + acc + (f' (- x 1) (+ acc x)))) + (f' x 0)) +(say (f 10)) +(say (f 1000)) diff --git a/tests/sumrec_local2.out b/tests/sumrec_local2.out new file mode 100644 index 0000000..2a5dbfe --- /dev/null +++ b/tests/sumrec_local2.out @@ -0,0 +1,2 @@ +55 +500500 -- cgit v1.2.3