mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-01-09 15:10:27 +00:00
Code Issues 1 Releases Wiki Activity

Add test case.

Browse Source
This commit is contained in:
Calvin Rose 2024-05-04 16:14:26 -05:00
parent 369f96b80e
commit f2d25a0da2
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
test/suite-boot.janet
View File

@ -976,4 +976,16 @@
(assert (= () '() (macex '())) "macex ()") (assert (= () '() (macex '())) "macex ()")
(assert (= '[] (macex '[])) "macex []") (assert (= '[] (macex '[])) "macex []")
# Knuth man or boy test
(var a nil)
(defn man-or-boy [x] (a x |1 |-1 |-1 |1 |0))
(varfn a [k x1 x2 x3 x4 x5]
(var k k)
(defn b [] (-- k) (a k b x1 x2 x3 x4))
(if (<= k 0)
(+ (x4) (x5))
(b)))
(assert (= -2 (man-or-boy 2)))
(assert (= -67 (man-or-boy 10)))
(end-suite) (end-suite)