tests/testthat/test-check_os.R

In richelbilderbeek/plinkr: Interface to PLINK

test_that("use", {
  expect_silent(check_os("mac"))
  expect_silent(check_os("unix"))
  expect_silent(check_os("win"))
  expect_error(
    check_os("nonsense"),
    "'os' must be either 'mac', 'unix' or 'win'"
  )
})