From e5e4c2aff562e5c01fefb808d1d68a40f29c9cc5 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 8 Apr 2022 01:49:29 -0400
Subject: Can now deploy releases with Aedifex.

---
 stdlib/source/test/aedifex/command/deploy.lux | 9 ++++++---
 stdlib/source/test/aedifex/profile.lux        | 3 ++-
 2 files changed, 8 insertions(+), 4 deletions(-)

(limited to 'stdlib/source/test/aedifex')

diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux
index 0aec02f72..7ce8710c9 100644
--- a/stdlib/source/test/aedifex/command/deploy.lux
+++ b/stdlib/source/test/aedifex/command/deploy.lux
@@ -31,8 +31,10 @@
       ["[0]" export]]]]
    [world
     ["[0]" file]
-    ["[0]" program {"+" Program}]]]]
+    ["[0]" program {"+" Program}]
+    ["[0]" shell]]]]
  [//
+  ["$[0]" build]
   ["$[0]" install]
   ["$[0]" version]
   [//
@@ -56,9 +58,10 @@
       Artifact ///.Profile
       (Async (Try Text)))
   (do ///action.monad
-    [.let [console ($version.echo "")]
+    [.let [console ($version.echo "")
+           shell (shell.async ($build.bad_shell []))]
      _ ($install.make_sources! fs (the ///.#sources profile))
-     _ (/.do! console local remote fs artifact profile)]
+     _ (/.do! program shell console local remote fs artifact profile)]
     (# console read_line [])))
 
 (def: .public test
diff --git a/stdlib/source/test/aedifex/profile.lux b/stdlib/source/test/aedifex/profile.lux
index aa2159929..e674942e0 100644
--- a/stdlib/source/test/aedifex/profile.lux
+++ b/stdlib/source/test/aedifex/profile.lux
@@ -98,8 +98,9 @@
   (Random /.Info)
   ($_ random.and
       (random.maybe (random.ascii/alpha 1))
+      (random.maybe (random.ascii/alpha 2))
       (random.maybe ..scm)
-      (random.maybe (random.ascii/alpha 1))
+      (random.maybe (random.ascii/alpha 3))
       (..list_of ..license)
       (random.maybe ..organization)
       (..list_of ..developer)
-- 
cgit v1.2.3