tests/testthat/test-read_plink_qassoc_file.R

In richelbilderbeek/plinkr: Interface to PLINK

test_that("use, 1 SNP", {
  expect_silent(
    read_plink_qassoc_file(
      qassoc_filename = get_plinkr_filename("assoc_qt_output_1_snp.qassoc")
    )
  )
})

test_that("use, 2 SNPs", {
  expect_silent(
    read_plink_qassoc_file(
      qassoc_filename = get_plinkr_filename("run1.qassoc")
    )
  )
})

test_that("use, 1 SNP with NAs", {
  expect_silent(
    read_plink_qassoc_file(
      qassoc_filename = get_plinkr_filename(
        "assoc_qt_output_1_snp_nas.qassoc"
      )
    )
  )
})

test_that("use, 1 SNP with NANs", {
  expect_silent(
    read_plink_qassoc_file(
      qassoc_filename = get_plinkr_filename(
        "qassoc_output_with_nan.qassoc"
      )
    )
  )
})

test_that("abuse", {
  expect_error(
    read_plink_qassoc_file(
      qassoc_filename = "abs.ent"
    )
  )
})