tests/testthat/test-to_mhcnuggets_name.R

In richelbilderbeek/bbbq: The Bilderbeek Bianchi and Bogaart Question

test_that("all BBBQ names are proper mhcnuggetsr names", {
  if (!mhcnuggetsr::is_mhcnuggets_installed()) return()
  for (haplotype_name in bbbq::get_mhc1_haplotypes()) {
    mhcnuggets_name <- mhcnuggetsr::to_mhcnuggets_name(haplotype_name)
    expect_true(mhcnuggets_name %in% mhcnuggetsr::get_mhc_1_haplotypes())
  }
  for (haplotype_name in bbbq::get_mhc2_haplotypes()) {
    mhcnuggets_name <- mhcnuggetsr::to_mhcnuggets_name(haplotype_name)
    expect_true(mhcnuggets_name %in% mhcnuggetsr::get_mhc_2_haplotypes())
  }
})