From 78c4bebaae84724affcb6d34340169c0f62c0f69 Mon Sep 17 00:00:00 2001 From: MadMaurice Date: Fri, 2 Apr 2021 20:01:43 +0200 Subject: [PATCH] Add first tests for list --- t/lists.t | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 t/lists.t diff --git a/t/lists.t b/t/lists.t new file mode 100644 index 0000000..80d9194 --- /dev/null +++ b/t/lists.t @@ -0,0 +1,7 @@ +(let ((lst (list 1 2 3))) + (write "# lst = ") (write-line lst) + (expect "Length of list is 3" (= (length lst) 3)) + (expect "First element is 1" (= (first lst) 1)) + (expect "Second element is 2" (= (second lst) 2)) + (expect "Third element is 3" (= (nth 2 lst) 3)) + )