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/dependency/resolution.lux | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(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 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