aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/lux/control/interval.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/test/lux/control/interval.lux35
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))))