From b80f79ae6b2e240949ebd709a253e21f7caf7ed3 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 26 Jun 2021 00:56:43 -0400
Subject: Delegate text (lower|upper)-casing to the host-platform
 implementations.

---
 stdlib/source/test/aedifex/local.lux | 6 ++++--
 1 file changed, 4 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 6729d4485..3f6574ed9 100644
--- a/stdlib/source/test/aedifex/local.lux
+++ b/stdlib/source/test/aedifex/local.lux
@@ -10,7 +10,9 @@
   [//
    ["@." artifact]]
   {#program
-   ["." /]})
+   ["." /
+    ["/#" // #_
+     ["#." artifact]]]})
 
 (def: #export test
   Test
@@ -20,5 +22,5 @@
         ($_ _.and
             (_.cover [/.repository /.uri]
                      (text.starts_with? /.repository
-                                        (/.uri sample)))
+                                        (/.uri (get@ #//artifact.version sample) sample)))
             ))))
-- 
cgit v1.2.3