From 982a19e0c5d57b53f9726b780fec4c18f0787b4f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 2 Dec 2020 04:42:03 -0400
Subject: Test for Aedifex's "auto" command.

---
 stdlib/source/program/aedifex.lux | 20 ++++++++++++++------
 1 file changed, 14 insertions(+), 6 deletions(-)

(limited to 'stdlib/source/program/aedifex.lux')

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)))))
-- 
cgit v1.2.3