17 lines
No EOL
372 B
Standard ML
17 lines
No EOL
372 B
Standard ML
fun assert condition message =
|
|
if condition
|
|
then
|
|
print (message ^ "\n")
|
|
else
|
|
let
|
|
val () = print ("Assert error: " ^ message ^ "\n")
|
|
in
|
|
OS.Process.exit OS.Process.failure
|
|
end
|
|
|
|
fun complete () =
|
|
let
|
|
val () = print "All tests passed!"
|
|
in
|
|
OS.Process.exit OS.Process.success
|
|
end |