diff options
Diffstat (limited to 'stdlib/source/program/aedifex/command/test.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/command/test.lux | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/stdlib/source/program/aedifex/command/test.lux b/stdlib/source/program/aedifex/command/test.lux index a27c07f10..d4519b2d0 100644 --- a/stdlib/source/program/aedifex/command/test.lux +++ b/stdlib/source/program/aedifex/command/test.lux @@ -4,25 +4,30 @@ [monad (#+ do)]] [control [concurrency - ["." promise]]] + ["." promise (#+ Promise)]]] [data [text - ["%" format (#+ format)]]]] + ["%" format (#+ format)]]] + [world + ["." file]]] ["." // #_ ["#." build] ["/#" // #_ ["#." action] ["#." command (#+ Command)] - ["#." shell]]]) + ["#." shell] + ["#." runtime] + [dependency + [resolution (#+ Resolution)]]]]) -(def: #export (do! project) - (Command Any) +(def: #export (do! fs resolution profile) + (-> (file.System Promise) Resolution (Command Any)) (do ///action.monad - [[compiler program] (//build.do! project) + [[compiler program] (//build.do! fs resolution profile) working-directory (promise.future //build.working-directory) #let [command (case compiler - (#//build.JVM artifact) (format "java -jar " program) - (#//build.JS artifact) (format "node --stack_size=8192 " program))] + (#//build.JVM artifact) (///runtime.java program) + (#//build.JS artifact) (///runtime.node program))] #let [_ (log! "[TEST STARTED]")] outcome (///shell.execute command working-directory) #let [_ (log! "[TEST ENDED]")]] |