|
structure Test :> TEST =
struct
type testFunction = unit -> unit
datatype test =
TestCase of unit -> unit
| TestLabel of string * test
| TestList of test list
val labelTests : (string * testFunction) list -> test
end
Type detail |
---|
type testFunction = unit -> unit
Datatype detail |
---|
datatype test =
TestCase of unit -> unit
| TestLabel of string * test
| TestList of test list
DataConstructor detail |
---|
constructor TestCase : (unit -> unit) -> test
constructor TestLabel : string * test -> test
constructor TestList : test list -> test
Value detail |
---|
val labelTests
: (* the name of test *)
(string * (* the function which performs the test *) testFunction) list ->
test
| SMLUnit: regression test framework for SML |