24 lines
494 B
Standard ML
24 lines
494 B
Standard ML
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 ()
|