tests/testthat/test-bdc_create_dir.R

In brunobrr/risk_assessment_flora_Brazil_I: Biodiversity Data Cleaning

## skip("dont run")
skip_on_cran()
skip_on_ci()

bdc_create_dir()

test_that("bdc dir exists", {
  expect_true(dir.exists(here::here("Output/Check")))
  expect_true(dir.exists(here::here("Output/Intermediate")))
  expect_true(dir.exists(here::here("Output/Report")))
  expect_true(dir.exists(here::here("Output/Figures")))

  unlink(here::here("Output"), recursive = TRUE)
})