let testdata_default =
  let pwd = Sys.getcwd () in
  let is_dir lst =
    let dn = make_filename pwd lst in
      Sys.file_exists dn && Sys.is_directory dn
  in
    try
      let path =
        List.find is_dir
          [
            ["test""data"];
            ["tests""data"];
            ["data"]
          ]
      in
        Some (make_filename pwd path)
    with Not_found ->
      None