mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-11-04 09:33:02 +00:00
Code Issues 1 Releases Wiki Activity

Update issue 53 regression test.

Browse Source 
Some tests did not call assert so did not show up on report.
This commit is contained in:
Calvin Rose
2019-02-21 19:19:47 -05:00
parent 1147482e62
commit f4908ebc41
2 changed files with 17 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
test/suite4.janet
View File

@@ -47,13 +47,19 @@
(defn check-image
"Run a marshaling test using the make-image and load-image functions."
[x]
(def src (make-image x))
(load-image src))
[x msg]
(assert-no-error msg (load-image (make-image x))))
(check-image (fn [] (fn [] 1)))
(check-image (fiber/new (fn [] (fn [] 1))))
(check-image (fiber/new (fn [] (fiber/new (fn [] 1)))))
(check-image (fn [] (fn [] 1)) "marshal nested functions")
(check-image (fiber/new (fn [] (fn [] 1))) "marshal nested functions in fiber")
(check-image (fiber/new (fn [] (fiber/new (fn [] 1)))) "marshal nested fibers")
(def issue-53-x
(fiber/new
(fn []
(var y (fiber/new (fn [] (print "1") (yield) (print "2")))))))
(check-image issue-53-x "issue 53 regression")
(end-suite)