From 5cf4efa861075f8276f43a2516f5beacaf610b44 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 2 Jul 2021 03:11:36 -0400
Subject: No longer employing the capabilities model on the lux/world/*
 modules.

Capabilities should be opt-in, but using them in the standard library makes them mandatory.---
 stdlib/source/test/aedifex/command/build.lux | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 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 0e86ef946..9d37ceb00 100644
--- a/stdlib/source/test/aedifex/command/build.lux
+++ b/stdlib/source/test/aedifex/command/build.lux
@@ -10,9 +10,7 @@
     [concurrency
      ["." promise (#+ Promise)]]
     [parser
-     ["." environment]]
-    [security
-     ["!" capability]]]
+     ["." environment]]]
    [data
     ["." text ("#\." equivalence)]
     [collection
@@ -42,7 +40,7 @@
   (shell.mock
    (function (_ [actual_environment actual_working_directory actual_command actual_arguments])
      (#try.Success
-      (: (shell.Simulation [])
+      (: (shell.Mock [])
          (implementation
           (def: (on_read state)
             (exception.throw shell.no_more_output []))
@@ -60,7 +58,7 @@
   (shell.mock
    (function (_ [actual_environment actual_working_directory actual_command actual_arguments])
      (#try.Success
-      (: (shell.Simulation [])
+      (: (shell.Mock [])
          (implementation
           (def: (on_read state)
             (exception.throw shell.no_more_output []))
@@ -142,8 +140,8 @@
               (wrap (do promise.monad
                       [verdict (do ///action.monad
                                  [_ (/.do! console (program.async (program.mock environment.empty home working_directory)) fs shell resolution profile)
-                                  start (!.use (\ console read_line) [])
-                                  end (!.use (\ console read_line) [])]
+                                  start (\ console read_line [])
+                                  end (\ console read_line [])]
                                  (wrap (and (text\= /.start start)
                                             (text\= /.success end))))]
                       (_.cover' [/.do!
@@ -156,8 +154,8 @@
               (wrap (do promise.monad
                       [verdict (do ///action.monad
                                  [_ (/.do! console (program.async (program.mock environment.empty home working_directory)) fs (shell.async (..bad_shell [])) resolution profile)
-                                  start (!.use (\ console read_line) [])
-                                  end (!.use (\ console read_line) [])]
+                                  start (\ console read_line [])
+                                  end (\ console read_line [])]
                                  (wrap (and (text\= /.start start)
                                             (text\= /.failure end))))]
                       (_.cover' [/.failure]
-- 
cgit v1.2.3