tests/testthat/test-convert_haplotypes_to_haplotype_ids.R

test_that("use", {
  lut <- get_haplotype_lut()
  index <- 42
  haplotype <- lut$haplotype[index]
  haplotype_id <- convert_haplotypes_to_haplotype_ids(haplotypes = haplotype)
  expect_equal(haplotype_id, lut$id[index])
})
richelbilderbeek/nmhc2ppreds documentation built on Aug. 21, 2021, 10:45 a.m.