diff options
author | Eduardo Julian | 2020-12-02 04:42:03 -0400 |
---|---|---|
committer | Eduardo Julian | 2020-12-02 04:42:03 -0400 |
commit | 982a19e0c5d57b53f9726b780fec4c18f0787b4f (patch) | |
tree | 50bf995dd5f1361c4a6651e2865819693ea25ca5 /stdlib/source/program/aedifex.lux | |
parent | cfa0a075b89a0df4618e7009f05c157393cbba72 (diff) |
Test for Aedifex's "auto" command.
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/program/aedifex.lux | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux index 0b2dda8f2..d876b5665 100644 --- a/stdlib/source/program/aedifex.lux +++ b/stdlib/source/program/aedifex.lux @@ -32,8 +32,9 @@ ["." syntax]]]]] [world ["." environment (#+ Environment)] - ["." file (#+ Path)] - ["." shell (#+ Shell)]]] + ["." shell (#+ Shell)] + ["." file (#+ Path) + ["." watch]]]] ["." / #_ ["#" profile] ["#." action (#+ Action)] @@ -127,10 +128,17 @@ (wrap []))) (#/cli.Auto auto) - (exec (case auto - #/cli.Build (..with-dependencies (/command/auto.do! /command/build.do!) profile) - #/cli.Test (..with-dependencies (/command/auto.do! /command/test.do!) profile)) - (wrap []))) + (do ! + [?watcher watch.default] + (case ?watcher + (#try.Failure error) + (wrap (log! error)) + + (#try.Success watcher) + (exec (case auto + #/cli.Build (..with-dependencies (/command/auto.do! watcher /command/build.do!) profile) + #/cli.Test (..with-dependencies (/command/auto.do! watcher /command/test.do!) profile)) + (wrap []))))) (#try.Failure error) (wrap (log! error))))) |