From 7444deb1b80d469280fcb0684d91c13f752a86d6 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 28 Nov 2020 21:40:29 -0400
Subject: Re-named "_.claim" to "_.cover'".

---
 stdlib/source/test/aedifex/cache.lux | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/cache.lux b/stdlib/source/test/aedifex/cache.lux
index 7dff44202..81d5fe136 100644
--- a/stdlib/source/test/aedifex/cache.lux
+++ b/stdlib/source/test/aedifex/cache.lux
@@ -101,14 +101,14 @@
     (wrap (do promise.monad
             [wrote! (/.write-one fs dependency expected-package)
              read! (/.read-one fs dependency)]
-            (_.claim [/.write-one /.read-one]
-                     (<| (try.default false)
-                         (do try.monad
-                           [_ wrote!
-                            actual-package read!]
-                           (wrap (:: //package.equivalence =
-                                     (set@ #//package.origin #//package.Local expected-package)
-                                     actual-package)))))))))
+            (_.cover' [/.write-one /.read-one]
+                      (<| (try.default false)
+                          (do try.monad
+                            [_ wrote!
+                             actual-package read!]
+                            (wrap (:: //package.equivalence =
+                                      (set@ #//package.origin #//package.Local expected-package)
+                                      actual-package)))))))))
 
 (def: plural
   Test
@@ -119,16 +119,16 @@
     (wrap (do promise.monad
             [wrote! (/.write-all fs expected)
              read! (/.read-all fs (dictionary.keys expected) //dependency/resolution.empty)]
-            (_.claim [/.write-all /.read-all]
-                     (<| (try.default false)
-                         (do try.monad
-                           [_ wrote!
-                            actual read!]
-                           (wrap (:: //dependency/resolution.equivalence =
-                                     (:: dictionary.functor map
-                                         (set@ #//package.origin #//package.Local)
-                                         expected)
-                                     actual)))))))))
+            (_.cover' [/.write-all /.read-all]
+                      (<| (try.default false)
+                          (do try.monad
+                            [_ wrote!
+                             actual read!]
+                            (wrap (:: //dependency/resolution.equivalence =
+                                      (:: dictionary.functor map
+                                          (set@ #//package.origin #//package.Local)
+                                          expected)
+                                      actual)))))))))
 
 (def: #export test
   Test
-- 
cgit v1.2.3