From 6633cd42f2892ea71530ddeeb93a7e7c0b59faa3 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 29 Jun 2021 00:54:13 -0400
Subject: Some updates for the new compilers.

---
 stdlib/source/test/aedifex/parser.lux | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/parser.lux b/stdlib/source/test/aedifex/parser.lux
index 0a13acb32..07c426ebb 100644
--- a/stdlib/source/test/aedifex/parser.lux
+++ b/stdlib/source/test/aedifex/parser.lux
@@ -8,7 +8,7 @@
     [pipe (#+ case>)]
     ["." try]
     [parser
-     ["<c>" code]]]
+     ["<.>" code]]]
    [data
     ["." text]
     [collection
@@ -61,6 +61,10 @@
                   (set.from_list text.hash (list //.default_source))
                   sources)))))
 
+(def: with_default_repository
+  (-> //.Profile //.Profile)
+  (update@ #//.repositories (set.add //.default_repository)))
+
 (def: single_profile
   Test
   (do random.monad
@@ -69,10 +73,11 @@
             (|> expected
                 //format.profile
                 list
-                (<c>.run /.project)
+                (<code>.run /.project)
                 (case> (#try.Success actual)
                        (|> expected
                            ..with_default_sources
+                           ..with_default_repository
                            (//project.project //.default)
                            (\ //project.equivalence = actual))
                        
@@ -93,13 +98,15 @@
             (|> expected
                 //format.project
                 list
-                (<c>.run /.project)
+                (<code>.run /.project)
                 (case> (#try.Success actual)
                        (|> expected
                            ..with_empty_profile
                            dictionary.entries
                            (list\map (function (_ [name profile])
-                                       [name (..with_default_sources profile)]))
+                                       [name (|> profile
+                                                 ..with_default_sources
+                                                 ..with_default_repository)]))
                            (dictionary.from_list text.hash)
                            (\ //project.equivalence = actual))
                        
-- 
cgit v1.2.3