tests/testthat/test-check_phe_filename.R

In richelbilderbeek/plinkr: Interface to PLINK

test_that("use", {
  expect_silent(check_phe_filename("a.phe"))
  expect_silent(check_phe_filename("/home/richel/data_1/data_1.phe"))
  expect_silent(check_phe_filename("/folder/a.phe"))
  expect_silent(check_phe_filename("~/a.phe"))
  expect_error(check_phe_filename(c("a.phe", "b.phe")))
  expect_error(check_phe_filename(".phe"))
  expect_error(check_phe_filename(""))
  expect_error(check_phe_filename("."))
  expect_silent(check_phe_filename("a.phe.phe"))
})