From 4610968193df10af12c91f699fec39aeb3ef703a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 10 Jul 2021 03:10:43 -0400
Subject: Made the "try" macro into a common one, instead of a host-specific
 one.

---
 stdlib/source/test/aedifex/command/deps.lux          |  7 +++++--
 stdlib/source/test/aedifex/dependency/resolution.lux | 12 ++++++++++++
 2 files changed, 17 insertions(+), 2 deletions(-)

(limited to 'stdlib/source/test/aedifex')

diff --git a/stdlib/source/test/aedifex/command/deps.lux b/stdlib/source/test/aedifex/command/deps.lux
index ecb34437a..819495c02 100644
--- a/stdlib/source/test/aedifex/command/deps.lux
+++ b/stdlib/source/test/aedifex/command/deps.lux
@@ -103,8 +103,11 @@
                                     (///dependency/deployment.all local))
                             post (|> (\ ///.monoid identity)
                                      (set@ #///.dependencies (set.from_list ///dependency.hash (list dependee depender)))
-                                     (/.do! console local (list (///repository.mock ($///dependency/resolution.single depender_artifact depender_package)
-                                                                                    []))))
+                                     (/.do! console local
+                                            (list (///repository.mock ($///dependency/resolution.single depender_artifact depender_package)
+                                                                      []))
+                                            (function (_ url)
+                                              (///repository.mock $///dependency/resolution.nope []))))
 
                             #let [had_dependee_before!
                                   (set.member? pre dependee_artifact)
diff --git a/stdlib/source/test/aedifex/dependency/resolution.lux b/stdlib/source/test/aedifex/dependency/resolution.lux
index 42116844f..6d25ffd4b 100644
--- a/stdlib/source/test/aedifex/dependency/resolution.lux
+++ b/stdlib/source/test/aedifex/dependency/resolution.lux
@@ -86,6 +86,16 @@
        (\ ///hash.md5_codec encode)
        (\ utf8.codec encode)))
 
+(def: #export nope
+  (Mock Any)
+  (implementation
+   (def: the_description
+     "[0]")
+   (def: (on_download uri state)
+     (#try.Failure "NOPE"))
+   (def: (on_upload uri binary state)
+     (#try.Failure "NOPE"))))
+
 (def: #export (single artifact package)
   (-> Artifact Package (Mock Any))
   (let [expected (///artifact.uri (get@ #///artifact.version artifact) artifact)]
@@ -407,6 +417,8 @@
                                                    (list (///repository.mock (..single dependee_artifact dependee_package) [])
                                                          (///repository.mock (..single depender_artifact depender_package) [])
                                                          (///repository.mock (..single ignored_artifact ignored_package) []))
+                                                   (function (_ url)
+                                                     (///repository.mock ..nope []))
                                                    (list depender)
                                                    /.empty)]
            (_.cover' [/.all]
-- 
cgit v1.2.3