1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
(.module: [lux #* ["_" test (#+ Test)] [abstract [monad (#+ do)]] [data ["." text]] [math ["." random (#+ Random)]]] [// ["@." artifact]] {#program ["." /]}) (def: #export test Test (<| (_.covering /._) (do {! random.monad} [sample @artifact.random] ($_ _.and (_.cover [/.repository /.uri] (text.starts_with? /.repository (/.uri sample))) ))))