add boilerplate to ease regression testing

2025-08-04 07:14:00 +01:00
parent 83634ef20e
commit d4532e37cf
3 changed files with 58 additions and 10 deletions
--- a/test/test.sml
+++ b/test/test.sml
@@ -1,12 +1,16 @@
-fun main () =
-  let
-    open Railroad
-    open Railroad.Test
+structure Test =
+struct
+  open Railroad
+  open Railroad.Test

-    val tests = NormalMove.tests @ NormalDelete.tests
-    val tests = concat tests
-  in
-    runWithConfig [Configuration.PrintPassed false] tests
-  end
+  fun main () =
+    let
+      val tests =
+        List.concat [NormalMove.tests, NormalDelete.tests, Regression.tests]
+      val tests = concat tests
+    in
+      runWithConfig [Configuration.PrintPassed false] tests
+    end
+end

-val () = main ()
+val () = Test.main ()