From ce1a7a131f7c4df8eae5c019eba2893b56f04d46 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 24 Jun 2021 03:42:57 -0400
Subject: Added a macro for type-casting JVM objects.

---
 stdlib/source/test/aedifex/command/test.lux | 10 ++++++----
 1 file changed, 6 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 9dd76ca08..36c21b520 100644
--- a/stdlib/source/test/aedifex/command/test.lux
+++ b/stdlib/source/test/aedifex/command/test.lux
@@ -5,6 +5,7 @@
     [monad (#+ do)]]
    [control
     ["." try]
+    ["." exception]
     [concurrency
      ["." promise]]
     [parser
@@ -14,7 +15,8 @@
    [data
     ["." text ("#\." equivalence)]
     [collection
-     ["." dictionary]]]
+     ["." dictionary]
+     ["." list]]]
    [math
     ["." random]]
    [world
@@ -84,15 +86,15 @@
                                                       (: (shell.Simulation [])
                                                          (structure
                                                           (def: (on_read state)
-                                                            (#try.Failure "on_read"))
+                                                            (exception.throw shell.no_more_output []))
                                                           (def: (on_error state)
-                                                            (#try.Failure "on_error"))
+                                                            (exception.throw shell.no_more_output []))
                                                           (def: (on_write input state)
                                                             (#try.Failure "on_write"))
                                                           (def: (on_destroy state)
                                                             (#try.Failure "on_destroy"))
                                                           (def: (on_await state)
-                                                            (#try.Success [state (if (text.ends_with? " build" actual_command)
+                                                            (#try.Success [state (if (list.any? (text\= "build") actual_arguments)
                                                                                    shell.normal
                                                                                    shell.error)]))))))
                                                    [])]
-- 
cgit v1.2.3