21 val cmd
= CommandLine
.name ()
22 val args
= CommandLine
.arguments ()
24 fun loop ([], []) = print
"OK!\n"
26 (if x
<> y
then print ("FAIL: "^x^
":"^y^
"\n") else (); loop (r
, s
))
27 |
loop (_
, _
) = print
"Wrong argument count\n"
32 if List.length args
= 0
34 val pid
= spawn
{path
= cmd
, args
= cmd
::tests
}
35 val status
= waitpid (W_CHILD pid
, [])
39 else loop (tests
, args
)