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/test.lux | 22 ++++++++++------------
 1 file changed, 10 insertions(+), 12 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 cad06aa69..47e2ed2b3 100644
--- a/stdlib/source/test/aedifex/command/test.lux
+++ b/stdlib/source/test/aedifex/command/test.lux
@@ -9,9 +9,7 @@
     [concurrency
      ["." promise]]
     [parser
-     ["." environment]]
-    [security
-     ["!" capability]]]
+     ["." environment]]]
    [data
     ["." text ("#\." equivalence)]
     [collection
@@ -65,10 +63,10 @@
               (wrap (do promise.monad
                       [verdict (do ///action.monad
                                  [_ (/.do! console (program.async (program.mock environment.empty home working_directory)) fs (shell.async (@build.good_shell [])) resolution profile)
-                                  build_start (!.use (\ console read_line) [])
-                                  build_end (!.use (\ console read_line) [])
-                                  test_start (!.use (\ console read_line) [])
-                                  test_end (!.use (\ console read_line) [])]
+                                  build_start (\ console read_line [])
+                                  build_end (\ console read_line [])
+                                  test_start (\ console read_line [])
+                                  test_end (\ console read_line [])]
                                  (wrap (and (and (text\= //build.start build_start)
                                                  (text\= //build.success build_end))
                                             (and (text\= /.start test_start)
@@ -83,7 +81,7 @@
                                  [#let [bad_shell (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 []))
@@ -99,10 +97,10 @@
                                                                                    shell.error)]))))))
                                                    [])]
                                   _ (/.do! console (program.async (program.mock environment.empty home working_directory)) fs (shell.async bad_shell) resolution profile)
-                                  build_start (!.use (\ console read_line) [])
-                                  build_end (!.use (\ console read_line) [])
-                                  test_start (!.use (\ console read_line) [])
-                                  test_end (!.use (\ console read_line) [])]
+                                  build_start (\ console read_line [])
+                                  build_end (\ console read_line [])
+                                  test_start (\ console read_line [])
+                                  test_end (\ console read_line [])]
                                  (wrap (and (and (text\= //build.start build_start)
                                                  (text\= //build.success build_end))
                                             (and (text\= /.start test_start)
-- 
cgit v1.2.3