From 889139602b77e4387a6e8bfbedacc2a08703e976 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 27 Nov 2020 00:07:51 -0400
Subject: Re-named lux/data/format/context to lux/control/parser/environment.

---
 stdlib/source/test/aedifex/input.lux | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 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 c25d6fe36..c7f6a4282 100644
--- a/stdlib/source/test/aedifex/input.lux
+++ b/stdlib/source/test/aedifex/input.lux
@@ -12,8 +12,10 @@
    [data
     ["." binary]
     ["." text
-     ["%" format]
-     ["." encoding]]]
+     ["%" format (#+ format)]
+     ["." encoding]]
+    [collection
+     ["." set (#+ Set)]]]
    [math
     ["." random (#+ Random)]]
    [world
@@ -28,6 +30,12 @@
      ["#." action]
      ["#." format]]]})
 
+(def: (with-default-source sources)
+  (-> (Set //.Source) (Set //.Source))
+  (if (set.empty? sources)
+    (set.add //.default-source sources)
+    sources))
+
 (def: #export test
   Test
   (<| (_.covering /._)
@@ -46,6 +54,8 @@
                                   (!.use (:: file over-write)))
                             actual (: (Promise (Try Profile))
                                       (/.read promise.monad fs //.default))]
-                           (wrap (:: //.equivalence = expected actual)))]
+                           (wrap (:: //.equivalence =
+                                     (update@ #//.sources ..with-default-source expected)
+                                     actual)))]
                 (_.claim [/.read]
                          (try.default false verdict)))))))
-- 
cgit v1.2.3