dakedres/ronin
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add tests

Browse Source
This commit is contained in:
Quentin Leonetti
2019-07-14 05:31:07 +02:00
parent fed2f5977a
commit 3254dc445c
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
examples/benchmark.lisp
View File

@@ -19,9 +19,19 @@
(test "lt" (lt 3 4) true) (test "lt" (lt 3 4) true)
(test "gt" (gt 3 4) false) (test "gt" (gt 3 4) false)
(test "and - true" (and 1 2 true 4) 4)
(test "and - false" (and 1 false 2) false)
(test "or - true" (or false false 2 false) 2)
(test "if - branch 1" (if (gt 3 2) ("branch 1") ("branch 2")) "branch 1")
(test "if - branch 2" (if (lt 3 2) ("branch 1") ("branch 2")) "branch 2")
; Arrays ; Arrays
(test "first" (first ("a" "b" "c")) "a") (test "first" (first ("a" "b" "c")) "a")
(test "rest" (rest ("a" "b" "c")) ("b" "c"))
(test "last" (last ("a" "b" "c")) "c") (test "last" (last ("a" "b" "c")) "c")
(test "range simple" (range 0 4) (0 1 2 3 4)) (test "range simple" (range 0 4) (0 1 2 3 4))
(test "range with step" (range 0 4 2) (0 2 4)) (test "range with step" (range 0 4 2) (0 2 4))