diff options
Diffstat (limited to 'stdlib/source/test/lux/control/interval.lux')
| -rw-r--r-- | stdlib/source/test/lux/control/interval.lux | 35 |
1 files changed, 19 insertions, 16 deletions
diff --git a/stdlib/source/test/lux/control/interval.lux b/stdlib/source/test/lux/control/interval.lux index 30d0dfa50..4874d3742 100644 --- a/stdlib/source/test/lux/control/interval.lux +++ b/stdlib/source/test/lux/control/interval.lux @@ -7,6 +7,8 @@ [data [number ["." nat]] + [text + format] [collection ["." set] ["." list]]] @@ -215,19 +217,20 @@ (def: #export test Test - ($_ _.and - (equivalenceT.test /.equivalence ..interval) - (<| (_.context "Boundaries.") - ..boundaries) - (<| (_.context "Union.") - ..union) - (<| (_.context "Intersection.") - ..intersection) - (<| (_.context "Complement.") - ..complement) - (<| (_.context "Positioning/location.") - ..location) - (<| (_.context "Touching intervals.") - ..touch) - (<| (_.context "Nesting & overlap.") - ..overlap))) + (<| (_.context (%name (name-of /.Interval))) + ($_ _.and + (equivalenceT.test /.equivalence ..interval) + (<| (_.context "Boundaries.") + ..boundaries) + (<| (_.context "Union.") + ..union) + (<| (_.context "Intersection.") + ..intersection) + (<| (_.context "Complement.") + ..complement) + (<| (_.context "Positioning/location.") + ..location) + (<| (_.context "Touching intervals.") + ..touch) + (<| (_.context "Nesting & overlap.") + ..overlap)))) |