Skip to content

Instantly share code, notes, and snippets.

@ccfontes
Created October 4, 2023 05:22
Show Gist options
  • Save ccfontes/b6429064146e28bcb2243d646f34e647 to your computer and use it in GitHub Desktop.
Save ccfontes/b6429064146e28bcb2243d646f34e647 to your computer and use it in GitHub Desktop.
Report untested shards
@wire(check-shard-no-tests {
= shard
"." | FS.Iterate(Recursive: true) >= filepaths
Remove(
filepaths
Predicate: {
Regex.Match(""".*(test|samples).*(\.shs|\.edn|\.clj)""") | Is([])
Or
FS.Read | ExpectString | String.Contains(shard) | Not })
When(Is([]) {
shard | Log("Shard is not tested")
})
})
Shards.Enumerate | Map({
Do(check-shard-no-tests)
})
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment