tests/testthat/test-get_remove_hex_fun.R

In richelbilderbeek/beastscriptr: 'BEAUti' from R

test_that("minimal use", {
  expect_silent(get_remove_hex_fun())
})

test_that("correct behaviour", {
  f <- get_remove_hex_fun()
  expect_equal(
    f("/home/richel/.cache/beast2_186c7404208c.xml.state"),
    "/home/richel/.cache/beast2.xml.state"
  )
  expect_equal(
    f("beast2_186c7404208c.xml.state"),
    "beast2.xml.state"
  )
  expect_equal(
    f(NA),
    NA
  )
  expect_error(f(c()))
})