From b1f0014dd9080c6643ecd73db5233fbdff032419 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 29 Aug 2020 01:06:42 -0400
Subject: Test programs + auti build/test.

---
 stdlib/source/program/aedifex.lux | 19 ++++++++++++++++---
 1 file changed, 16 insertions(+), 3 deletions(-)

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

diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux
index 70cccaaf2..874e32ceb 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -28,13 +28,17 @@
    [world
     ["." file (#+ Path)]]]
   ["." / #_
+   [action (#+ Action)]
    ["#" project]
    ["#." parser]
    ["#." pom]
    ["#." cli]
    ["#." local]
    ["#." dependency]
-   ["#." build]])
+   [command
+    ["#." build]
+    ["#." test]
+    ["#." auto]]])
 
 (def: (read-file! path)
   (-> Path (IO (Try Binary)))
@@ -137,8 +141,17 @@
           (exec (..fetch-dependencies! project)
             (wrap []))
 
-          #/cli.Buikd
-          (exec (/build.do! project)
+          (#/cli.Compilation compilation)
+          (case compilation
+            #/cli.Build (exec (/build.do! project)
+                          (wrap []))
+            #/cli.Test (exec (/test.do! project)
+                         (wrap [])))
+
+          (#/cli.Auto auto)
+          (exec (case auto
+                  #/cli.Build (/auto.do! /build.do! project)
+                  #/cli.Test (/auto.do! /test.do! project))
             (wrap [])))
         
         (#try.Failure error)
-- 
cgit v1.2.3