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