Wright-Fisher type sims to assess impact of testing on Thoroughbred horses carrying a deleterious haplotype THR14