let
simple t =
match
t.tests_planned
with
|
hd :: _
->
Choose
hd
|
[]
->
NoChoice