Add first tests for list
This commit is contained in:
parent
a6c609ff4c
commit
78c4bebaae
1 changed files with 7 additions and 0 deletions
7
t/lists.t
Normal file
7
t/lists.t
Normal 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))
|
||||||
|
)
|
Loading…
Reference in a new issue