tests/testthat/test-check_assoc_qt_result.R

In richelbilderbeek/plinkr: Interface to PLINK

test_that("minimal use", {
  expect_error(check_assoc_qt_result("nonsense"))
  expect_error(check_assoc_qt_result(NULL))
  expect_error(check_assoc_qt_result(NA))
  expect_error(check_assoc_qt_result(42))
  expect_error(check_assoc_qt_result(3.14))
  expect_error(check_assoc_qt_result(c()))
  expect_error(check_assoc_qt_result(c(4, 2)))
  expect_error(check_assoc_qt_result(list()))
  expect_error(check_assoc_qt_result(list(a = 4, b = 2)))
})