tests/testthat/test-check_snp_selector.R

In richelbilderbeek/plinkr: Interface to PLINK

test_that("use", {
  expect_silent(check_snp_selector(create_test_chromosome_selector()))
  expect_silent(check_snp_selector(create_test_random_snps_selector()))
  expect_silent(check_snp_selector(create_test_single_snp_selector()))
  expect_silent(check_snp_selector(create_test_snp_range_selector()))
  expect_silent(check_snp_selector(create_test_snp_window_selector()))
  expect_error(check_snp_selector("nonsense"))
  expect_error(check_snp_selector(""))
  expect_error(check_snp_selector(list()))
  expect_error(check_snp_selector(c()))
  expect_error(check_snp_selector(NA))
  expect_error(check_snp_selector(NULL))
  expect_error(check_snp_selector(Inf))
  expect_error(check_snp_selector(42))
  expect_error(check_snp_selector(3.14))
})