Ported some modules to the new test format.

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))))