tests/testthat/test-create_symlink.R

In starter: Starter Kit for New Projects

test_that("create_symlink() throws error when expected", {
  expect_error(
    create_symlink(to = letters, name = letters)
  )
  expect_error(
    create_symlink(to = letters, name = fs::path_package("starter"))
  )
  expect_error(
    create_symlink(to = letters, name = fs::path(fs::path_package("starter"), "rstudio", "addins.dcf"))
  )
  expect_error(
    create_symlink(to = fs::path(fs::path_package("starter"), "rstudio", "addins.dcf"))
  )
})