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