From 772f621c19408c711c1e587668a52a8cfeeea418 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 12 Aug 2022 22:26:57 -0400
Subject: Fixes for Aedifex tests.

---
 stdlib/source/test/aedifex/input.lux | 13 +++++++------
 1 file changed, 7 insertions(+), 6 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 9c296e12c..7dc6ccc8e 100644
--- a/stdlib/source/test/aedifex/input.lux
+++ b/stdlib/source/test/aedifex/input.lux
@@ -43,6 +43,11 @@
   (-> (Set Address) (Set Address))
   (set.has //.default_repository))
 
+(def with_defaults
+  (-> Profile Profile)
+  (|>> (revised //.#sources ..with_default_source)
+       (revised //.#repositories ..with_default_repository)))
+
 (def .public test
   Test
   (<| (_.covering /._)
@@ -59,11 +64,7 @@
                                             (at utf8.codec encoded))]
                           _ (at fs write //project.file profile)
                           actual (is (Async (Try Profile))
-                                     (/.read async.monad fs (list //.default)))]
-                         (in (at //.equivalence =
-                                 (|> expected
-                                     (revised //.#sources ..with_default_source)
-                                     (revised //.#repositories ..with_default_repository))
-                                 actual)))]
+                                     (/.read async.monad fs (list)))]
+                         (in (at //.equivalence = (with_defaults expected) actual)))]
               (unit.coverage [/.read]
                 (try.else false verdict)))))))
-- 
cgit v1.2.3