tests/testthat/test-read_plink_bin_data.R

In richelbilderbeek/plinkr: Interface to PLINK

test_that("minimal use, test_v1_7_after_make-bed", {
  clear_plinkr_cache()
  base_input_filename <- tools::file_path_sans_ext(
    get_plinkr_filename("test_v1_7_after_make-bed.bed")
  )
  plink_bin_data <- read_plink_bin_data(
    base_input_filename = base_input_filename
  )
  suppressMessages(
    expect_message(
      read_plink_bin_data(
        base_input_filename = base_input_filename,
        verbose = TRUE
      )
    )
  )
  expect_silent(check_plink_bin_data(plink_bin_data))
  check_empty_plinkr_folder()
})