sml-projects/shf/test/test.sml

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