Add first tests for list

This commit is contained in:
madmaurice 2021-04-02 20:01:43 +02:00
parent a6c609ff4c
commit 78c4bebaae

7
t/lists.t Normal file
View file

@ -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))
)