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