@@ -1,5 +1,6 @@
2/+ *strandio
2/+ *strandio
4=/ m (strand:spider ,vase)
5=/ m (strand:spider ,vase)
5^- thread:spider
6^- thread:spider
@@ -7,17 +8,25 @@
8;< bek=beak bind:m get-beak
9;< bek=beak bind:m get-beak
9;< lua-files=(list path) bind:m (list-tree [bek /res/lua])
10;< lua-files=(list path) bind:m (list-tree [bek /res/lua])
10−:: ;< * bind:m ((map-m ,@ud ~) ~[1 2 3] |=(x=@ (flog-text "{<x>}")))
11;< results=(list test-result) bind:m
11;< results=(list test-result) bind:m
12 =/ m (strand:spider ,(list test-result))
12 =/ m (strand:spider ,(list test-result))
13 =/ res=(list test-result) ~
13 =/ res=(list test-result) ~
15 ?~ lua-files (pure:m res)
15 ?~ lua-files (pure:m res)
16+ =/ current-file i.lua-files
16− ;< =cage bind:m (read-file [bek i.lua-files])
18+ ;< =cage bind:m (read-file [bek current-file])
17− =/ bar (of-wain:format !<(wain +.cage))
19+ =/ lua-code=@t (of-wain:format !<(wain +.cage))
18− :: ;< * bind:m (flog-text "{<i.lua-files>} {(scag 50 (trip bar))}")
20+ ~& %parsing
21+ =/ parse-result ?~ (rush lua-code lua-parser) %err %ok
19− $(lua-files t.lua-files, res [%ok res])
23+ $(lua-files t.lua-files, res [parse-result res])
20−(pure:m !>(~))
24+%- pure:m
27+ passed=(lent (skim results |=(=test-result =(%ok test-result))))
28+ errored=(lent (skim results |=(=test-result =(%err test-result))))
22+$ test-result $?(%ok %err)
31+$ test-result $?(%ok %err)