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.

---
 .../source/test/aedifex/dependency/resolution.lux  | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/dependency/resolution.lux b/stdlib/source/test/aedifex/dependency/resolution.lux
index 7dcf46d3a..42116844f 100644
--- a/stdlib/source/test/aedifex/dependency/resolution.lux
+++ b/stdlib/source/test/aedifex/dependency/resolution.lux
@@ -30,7 +30,9 @@
   ["$." /// #_
    ["#." package]
    ["#." repository]
-   ["#." artifact]]
+   ["#." artifact]
+   [command
+    ["#." version]]]
   {#program
    ["." /
     ["//#" /// #_
@@ -88,6 +90,8 @@
   (-> Artifact Package (Mock Any))
   (let [expected (///artifact.uri (get@ #///artifact.version artifact) artifact)]
     (implementation
+     (def: the_description
+       "[1]")
      (def: (on_download uri state)
        (if (text.contains? expected uri)
          (let [library (: Binary
@@ -127,6 +131,8 @@
 (def: (bad_sha-1 expected_artifact expected_package dummy_package)
   (-> Artifact Package Package (Mock Any))
   (implementation
+   (def: the_description
+     "[~SHA-1]")
    (def: (on_download uri state)
      (if (text.contains? (///artifact.uri (get@ #///artifact.version expected_artifact) expected_artifact) uri)
        (cond (text.ends_with? ///artifact/extension.lux_library uri)
@@ -178,6 +184,8 @@
 (def: (bad_md5 expected_artifact expected_package dummy_package)
   (-> Artifact Package Package (Mock Any))
   (implementation
+   (def: the_description
+     "[~MD5]")
    (def: (on_download uri state)
      (if (text.contains? (///artifact.uri (get@ #///artifact.version expected_artifact) expected_artifact) uri)
        (cond (text.ends_with? ///artifact/extension.lux_library uri)
@@ -289,7 +297,9 @@
     ($_ _.and
         (wrap
          (do promise.monad
-           [actual_package (/.any (list (///repository.mock bad_sha-1 [])
+           [#let [console ($///version.echo "")]
+            actual_package (/.any console
+                                  (list (///repository.mock bad_sha-1 [])
                                         (///repository.mock bad_md5 [])
                                         (///repository.mock good []))
                                   {#///dependency.artifact expected_artifact
@@ -305,7 +315,9 @@
                        false))))
         (wrap
          (do promise.monad
-           [actual_package (/.any (list (///repository.mock bad_sha-1 [])
+           [#let [console ($///version.echo "")]
+            actual_package (/.any console
+                                  (list (///repository.mock bad_sha-1 [])
                                         (///repository.mock bad_md5 []))
                                   {#///dependency.artifact expected_artifact
                                    #///dependency.type ///artifact/type.lux_library})]
@@ -390,7 +402,9 @@
     ($_ _.and
         (wrap
          (do promise.monad
-           [[successes failures resolution] (/.all (list (///repository.mock (..single dependee_artifact dependee_package) [])
+           [#let [console ($///version.echo "")]
+            [successes failures resolution] (/.all console
+                                                   (list (///repository.mock (..single dependee_artifact dependee_package) [])
                                                          (///repository.mock (..single depender_artifact depender_package) [])
                                                          (///repository.mock (..single ignored_artifact ignored_package) []))
                                                    (list depender)
-- 
cgit v1.2.3