test_that(".folder_is_empty() works", {
  create_local_package()
  fs::dir_create("docs")
  expect_true(.folder_is_empty("docs"))

  fs::file_create("docs/test.md")
  expect_false(.folder_is_empty("docs"))
})

test_that(".check_docs_exists() works", {
  create_local_package()
  expect_silent(.check_docs_exists())

  fs::dir_create("docs")
  expect_silent(.check_docs_exists())

  fs::file_create("docs/test.md")
  expect_error(.check_docs_exists())
})

test_that(".pkg_name() works", {
  create_local_package()
  expect_true(is.character(.pkg_name(getwd())))
  expect_true(nchar(.pkg_name(getwd())) > 0)
})

test_that(".pkg_version() works", {
  create_local_package()
  expect_true(is.character(.pkg_version(".")))
  expect_true(nchar(.pkg_version(".")) > 0)
})

test_that("import_* functions work", {
  create_local_package()
  fs::dir_create("docs")
  cat("docute", file = "docs/index.html")

  usethis::use_readme_md()
  expect_false(fs::file_exists("docs/README.md"))
  .import_readme()
  expect_true(fs::file_exists("docs/README.md"))

  usethis::use_code_of_conduct("etienne.bacher@protonmail.com")
  expect_false(fs::file_exists("docs/CODE_OF_CONDUCT.md"))
  .import_coc()
  expect_true(fs::file_exists("docs/CODE_OF_CONDUCT.md"))

  withr::with_options(
    list(repos = c("CRAN" = "https://cloud.r-project.org")),
    {
      usethis::use_news_md()
    }
  )
  expect_false(fs::file_exists("docs/NEWS.md"))
  .import_news()
  expect_true(fs::file_exists("docs/NEWS.md"))

})

test_that(".need_to_bump_version() works", {
  create_local_package()
  use_docute(path = getwd())

  expect_equal(.doc_version(getwd()), "0.0.0.9000")
  expect_false(.need_to_bump_version(getwd()))

  desc::desc_set_version("0.1.0")

  expect_true(.need_to_bump_version(getwd()))
  .update_version_number(getwd())
  expect_equal(.doc_version(getwd()), "0.1.0")
  expect_equal(.altdoc_version_in_footer(getwd()), .altdoc_version())
})

test_that(".need_to_bump_version() works", {
  create_local_package()
  use_docsify(path = getwd())

  expect_equal(.doc_version(getwd()), "0.0.0.9000")
  expect_false(.need_to_bump_version(getwd()))

  desc::desc_set_version("0.1.0")

  expect_true(.need_to_bump_version(getwd()))
  .update_version_number(getwd())
  expect_equal(.doc_version(getwd()), "0.1.0")
  expect_equal(.altdoc_version_in_footer(getwd()), .altdoc_version())
})