diff options
| author | Eduardo Julian | 2020-12-29 23:29:54 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-12-29 23:29:54 -0400 |
| commit | 02d27daeacac74785c2b0f4d1ce03d432377a36e (patch) | |
| tree | 5129c496d136deb57880f202153e96f4f585e355 /stdlib/source/test/aedifex/local.lux | |
| parent | 832a9361b632331e82a64c07baa560487ca8abde (diff) | |
Unified repository abstraction for Aedifex.
Diffstat (limited to 'stdlib/source/test/aedifex/local.lux')
| -rw-r--r-- | stdlib/source/test/aedifex/local.lux | 25 |
1 files changed, 6 insertions, 19 deletions
diff --git a/stdlib/source/test/aedifex/local.lux b/stdlib/source/test/aedifex/local.lux index 7d0492815..6729d4485 100644 --- a/stdlib/source/test/aedifex/local.lux +++ b/stdlib/source/test/aedifex/local.lux @@ -3,35 +3,22 @@ ["_" test (#+ Test)] [abstract [monad (#+ do)]] - [control - [concurrency - [promise (#+ Promise)]]] [data ["." text]] [math - ["." random (#+ Random)]] - [world - ["." file]]] + ["." random (#+ Random)]]] [// ["@." artifact]] {#program - ["." / - ["/#" // #_ - ["#." artifact]]]}) + ["." /]}) (def: #export test Test (<| (_.covering /._) (do {! random.monad} - [sample @artifact.random - home (random.ascii/alpha 5) - #let [fs (: (file.System Promise) - (file.mock (\ file.default separator)))]] + [sample @artifact.random] ($_ _.and - (_.cover [/.repository /.path] - (let [path (/.path fs home sample)] - (and (text.starts_with? (/.repository fs home) - path) - (text.ends_with? (//artifact.path fs sample) - path)))) + (_.cover [/.repository /.uri] + (text.starts_with? /.repository + (/.uri sample))) )))) |