tests/testthat/test.checkMaf.R

In jellily/PCAseq: Population Structure Inference with Whole Genome Sequence Data

# Tests for checkMaf

test_that("checkMaf passes when the input is a proper MAF",
{
  expect_true(checkMaf("(0.213, 0.467)"))
  expect_true(checkMaf("[0, 0.5)"))
  expect_true(checkMaf(NA))
})

test_that("checkMaf fails when the input is not correct", 
{
  expect_error(checkMaf("[0, 0.5}"))
  expect_error(checkMaf("cake"))
  expect_error(checkMaf(c(0.1, 0.2)))
  expect_error(checkMaf(42))
  expect_error(checkMaf(NaN))
  expect_error(checkMaf(NULL))
})