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/input.lux | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/input.lux b/stdlib/source/test/aedifex/input.lux
index e2751381a..86771cf1f 100644
--- a/stdlib/source/test/aedifex/input.lux
+++ b/stdlib/source/test/aedifex/input.lux
@@ -13,7 +13,8 @@
     ["." binary]
     ["." text
      ["%" format (#+ format)]
-     ["." encoding]]
+     [encoding
+      ["." utf8]]]
     [collection
      ["." set (#+ Set)]]]
    [math
@@ -28,7 +29,9 @@
      ["#" profile (#+ Profile)]
      ["#." project]
      ["#." action]
-     ["#." format]]]})
+     ["#." format]
+     [repository
+      [remote (#+ Address)]]]]})
 
 (def: (with_default_source sources)
   (-> (Set //.Source) (Set //.Source))
@@ -36,6 +39,10 @@
     (set.add //.default_source sources)
     sources))
 
+(def: with_default_repository
+  (-> (Set Address) (Set Address))
+  (set.add //.default_repository))
+
 (def: #export test
   Test
   (<| (_.covering /._)
@@ -50,12 +57,14 @@
                             _ (|> expected
                                   //format.profile
                                   %.code
-                                  (\ encoding.utf8 encode)
+                                  (\ utf8.codec encode)
                                   (!.use (\ file over_write)))
                             actual (: (Promise (Try Profile))
                                       (/.read promise.monad fs //.default))]
                            (wrap (\ //.equivalence =
-                                    (update@ #//.sources ..with_default_source expected)
+                                    (|> expected
+                                        (update@ #//.sources ..with_default_source)
+                                        (update@ #//.repositories ..with_default_repository))
                                     actual)))]
                 (_.cover' [/.read]
                           (try.default false verdict)))))))
-- 
cgit v1.2.3