From b80f79ae6b2e240949ebd709a253e21f7caf7ed3 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 26 Jun 2021 00:56:43 -0400
Subject: Delegate text (lower|upper)-casing to the host-platform
 implementations.

---
 stdlib/source/test/aedifex/command/test.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/test.lux b/stdlib/source/test/aedifex/command/test.lux
index 36c21b520..6b7ba9324 100644
--- a/stdlib/source/test/aedifex/command/test.lux
+++ b/stdlib/source/test/aedifex/command/test.lux
@@ -44,7 +44,7 @@
   Test
   (<| (_.covering /._)
       (do {! random.monad}
-        [program (random.ascii/alpha 5)
+        [test (random.ascii/alpha 5)
          target (random.ascii/alpha 5)
          home (random.ascii/alpha 5)
          working_directory (random.ascii/alpha 5)
@@ -52,11 +52,11 @@
                                 (\ ///.monoid identity))
                with_target (: (-> Profile Profile)
                               (set@ #///.target (#.Some target)))
-               with_program (: (-> Profile Profile)
-                               (set@ #///.program (#.Some program)))
+               with_test (: (-> Profile Profile)
+                            (set@ #///.test (#.Some test)))
                
                profile (|> empty_profile
-                           with_program
+                           with_test
                            with_target)]
          resolution @build.resolution]
         ($_ _.and
-- 
cgit v1.2.3