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