tests/testthat/test-check_plink_bin_data.R

In richelbilderbeek/plinkr: Interface to PLINK

test_that("use", {
  expect_silent(check_plink_bin_data(create_test_plink_bin_data()))
  expect_error(check_plink_bin_data(NA), "list")
  expect_error(check_plink_bin_data(NULL), "list")
  expect_error(check_plink_bin_data("nonsense"), "list")
  expect_error(check_plink_bin_data(42), "list")
  expect_error(check_plink_bin_data(list()), "bed_table")
  expect_error(check_plink_bin_data(list(bed_table = "")), "bim_table")
  expect_error(
    check_plink_bin_data(list(bed_table = "", bim_table = "")),
    "fam_table"
  )
})

test_that("use", {
  plink_bin_data <- create_test_plink_bin_data()
  plink_bin_data$fam_table$id <- paste0("human_", plink_bin_data$fam_table$id)
  expect_error(
    check_plink_bin_data(plink_bin_data),
    "Mismatch between the 'id' column in the .fam table and the column names in the .bed table" # nolint indeed a long line
  )
})