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