From 2b909032e7a0bd10cd7db52067d2fb701bfa95e5 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 6 Jul 2021 21:34:21 -0400
Subject: Simplified the API for file-system operations.

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

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

diff --git a/stdlib/source/test/aedifex/command/pom.lux b/stdlib/source/test/aedifex/command/pom.lux
index 0338bf7c4..2ac23ec7a 100644
--- a/stdlib/source/test/aedifex/command/pom.lux
+++ b/stdlib/source/test/aedifex/command/pom.lux
@@ -4,32 +4,30 @@
    [abstract
     [monad (#+ do)]]
    [control
-    ["." try (#+ Try) ("#\." functor)]
+    ["." try ("#\." functor)]
     [concurrency
-     ["." promise (#+ Promise)]]]
+     ["." promise]]]
    [data
-    ["." binary]
+    ["." binary ("#\." equivalence)]
     ["." text ("#\." equivalence)
      [encoding
       ["." utf8]]]
     [format
      ["." xml]]]
    [math
-    ["." random (#+ Random)]]
+    ["." random]]
    [world
-    ["." file (#+ File)]]]
+    ["." file]]]
   [//
    ["@." version]
    [//
     ["@." profile]]]
   {#program
    ["." /
-    ["/#" // #_
-     ["#." clean]
-     ["/#" // #_
-      ["#" profile]
-      ["#." action]
-      ["#." pom]]]]})
+    ["//#" /// #_
+     ["#" profile]
+     ["#." action]
+     ["#." pom]]]})
 
 (def: #export test
   Test
@@ -41,27 +39,22 @@
                 [#let [console (@version.echo "")]
                  outcome (/.do! console fs sample)]
                 (case outcome
-                  (#try.Success path)
+                  (#try.Success _)
                   (do !
                     [verdict (do ///action.monad
                                [expected (|> (///pom.write sample)
-                                             (try\map (|>> (\ xml.codec encode) (\ utf8.codec encode)))
+                                             (try\map (|>> (\ xml.codec encode)
+                                                           (\ utf8.codec encode)))
                                              (\ ! wrap))
-                                file (: (Promise (Try (File Promise)))
-                                        (file.get_file promise.monad fs path))
-                                actual (\ file content [])
+                                actual (\ fs read ///pom.file)
 
                                 logging! (\ ///action.monad map
                                             (text\= /.success)
                                             (\ console read_line []))
 
-                                #let [expected_path!
-                                      (text\= ///pom.file path)
-
-                                      expected_content!
-                                      (\ binary.equivalence = expected actual)]]
+                                #let [expected_content!
+                                      (binary\= expected actual)]]
                                (wrap (and logging!
-                                          expected_path!
                                           expected_content!)))]
                     (_.cover' [/.do! /.success]
                               (try.default false verdict)))
-- 
cgit v1.2.3