From 9af671a34728b35c48bff2ba163c371dc5084946 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 10 Dec 2020 22:29:32 -0400
Subject: Render XML to text in an indented form for human readability.

---
 stdlib/source/test/aedifex/local.lux | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/local.lux b/stdlib/source/test/aedifex/local.lux
index 1d90ff905..b95bf2e19 100644
--- a/stdlib/source/test/aedifex/local.lux
+++ b/stdlib/source/test/aedifex/local.lux
@@ -24,12 +24,13 @@
   (<| (_.covering /._)
       (do {! random.monad}
         [sample @artifact.random
+         home (random.ascii/alpha 5)
          #let [fs (: (file.System Promise)
                      (file.mock (\ file.default separator)))]]
         ($_ _.and
             (_.cover [/.repository /.path]
-                     (let [path (/.path fs sample)]
-                       (and (text.starts-with? (/.repository fs)
+                     (let [path (/.path fs home sample)]
+                       (and (text.starts-with? (/.repository fs home)
                                                path)
                             (text.ends-with? (//artifact.path fs sample)
                                              path))))
-- 
cgit v1.2.3