From c85697eee8ce3dac5480a3ba2b31cc4943e1d8e6 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 7 Apr 2022 14:57:35 -0400
Subject: Better snapshot deployments for Aedifex.

---
 stdlib/source/test/aedifex/command/build.lux | 30 ++++++++++++++--------------
 1 file changed, 15 insertions(+), 15 deletions(-)

(limited to 'stdlib/source/test/aedifex/command/build.lux')

diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux
index 987d35506..a7cd30b1c 100644
--- a/stdlib/source/test/aedifex/command/build.lux
+++ b/stdlib/source/test/aedifex/command/build.lux
@@ -89,7 +89,7 @@
                  
                  {.#End}
                  (exception.except shell.no_more_output []))))
-           (def: (on_error state)
+           (def: (on_fail state)
              (if error?
                (case state
                  {.#Item head tail}
@@ -110,7 +110,7 @@
   (do random.monad
     [lux_version (random.ascii/alpha 5)
      .let [js_compiler [///dependency.#artifact [///artifact.#group /.lux_group
-                                                 ///artifact.#name /.js_compiler_name
+                                                 ///artifact.#name /.js_lux_name
                                                  ///artifact.#version lux_version]
                         ///dependency.#type ///artifact/type.js_library]]]
     (`` ($_ random.either
@@ -121,10 +121,10 @@
                                                  ///artifact.#version lux_version]
                         ///dependency.#type ///artifact/type.lux_library])]
 
-                  [/.jvm_compiler_name]
-                  [/.python_compiler_name]
-                  [/.lua_compiler_name]
-                  [/.ruby_compiler_name]
+                  [/.jvm_lux_name]
+                  [/.python_lux_name]
+                  [/.lua_lux_name]
+                  [/.ruby_lux_name]
                   ))))))
 
 (def: .public resolution
@@ -171,13 +171,13 @@
                               (exception.match? /.no_specified_program error)))))
             (in (do async.monad
                   [outcome (/.do! (@version.echo "") (program.async (program.mock environment.empty home working_directory)) fs shell ///dependency/resolution.empty profile)]
-                  (_.cover' [/.Compiler /.no_available_compiler]
+                  (_.cover' [/.Lux /.no_available_lux]
                             (case outcome
                               {try.#Success _}
                               false
 
                               {try.#Failure error}
-                              (exception.match? /.no_available_compiler error)))))
+                              (exception.match? /.no_available_lux error)))))
             (do !
               [.let [console (@version.echo "")]
                [compiler resolution] ..resolution]
@@ -185,18 +185,18 @@
                     [verdict (do ///action.monad
                                [_ (/.do! console (program.async (program.mock environment.empty home working_directory))
                                          fs shell resolution
-                                         (has ///.#compiler compiler profile))
+                                         (has ///.#lux compiler profile))
                                 start (# console read_line [])
                                 end (# console read_line [])]
                                (in (and (text#= /.start start)
                                         (text#= /.success end))))]
                     (_.cover' [/.do!
                                /.lux_group
-                               /.jvm_compiler_name
-                               /.js_compiler_name
-                               /.python_compiler_name
-                               /.lua_compiler_name
-                               /.ruby_compiler_name
+                               /.jvm_lux_name
+                               /.js_lux_name
+                               /.python_lux_name
+                               /.lua_lux_name
+                               /.ruby_lux_name
                                /.start
                                /.success]
                               (try.else false verdict)))))
@@ -207,7 +207,7 @@
                     [verdict (do ///action.monad
                                [_ (/.do! console (program.async (program.mock environment.empty home working_directory))
                                          fs (shell.async (..bad_shell [])) resolution
-                                         (has ///.#compiler compiler profile))
+                                         (has ///.#lux compiler profile))
                                 start (# console read_line [])
                                 end (# console read_line [])]
                                (in (and (text#= /.start start)
-- 
cgit v1.2.3