structure Test = struct open Railroad open Railroad.Test fun main () = let val tests = List.concat [ NormalMoveTests.tests , NormalDeleteTests.tests , NormalYankTests.tests , PersistentVectorTests.tests , RegressionTests.tests , RegexTests.tests ] val tests = concat tests in runWithConfig [Configuration.PrintPassed false] tests handle e => ExceptionLogger.log e end end val () = Test.main ()