tests: clean environment after tests

tests/testthat/test-add_report.R

@@ -15,4 +15,5 @@ test_that("add_report should create a report", {
                 "reports/test",
                 list.files(pkg_sys("bookdown_template")))
   )))
+  unlink(path, recursive = TRUE)
 })

tests/testthat/test-create_fairify.R

@@ -13,5 +13,6 @@ test_that("create_fairify with git = FALSE doesn't create git repo works", {
   path <- helper_create_fairify(git = FALSE)
   project <- basename(path)
   expect_false(file.exists(file.path(path, ".git")))
+  unlink(path, recursive = TRUE)
 })
 

tests/testthat/test-create_reports.R

@@ -6,4 +6,5 @@ test_that("create_reports works", {
   expect_true(all(dir.exists(file.path(path, c("reports", "templates")))))
   expect_error(create_reports(path))
   expect_warning(create_reports(path,  overwrite = TRUE))
+  unlink(path, recursive = TRUE)
 })

tests/testthat/test-loadConfig.R

@@ -22,5 +22,5 @@ test_that("loadConfig works", {
   expect_message(loadConfig(),
                  regexp = paste("Read user configuration from:",
                                 file.path(path_pkg, "config.yml")))
-
+  unlink(path_pkg, recursive = TRUE)
 })

tests/testthat/test-mermaid.R

@@ -11,6 +11,7 @@ test_that("mermaid_gen_link: conversion of mmd to pako works", {
   f <- tempfile()
   writeLines(diagram, f)
   expect_equal(mermaid_gen_link(f), pako)
+  unlink(f)
 })
 
 test_that("mermaid returns a file", {
@@ -26,4 +27,5 @@ test_that("mermaid returns a file", {
   f <- mermaid(diagram, dir.dest = file.path(tempdir(), "try-me"), file.dest = "toto.png")
   expect_equal(f, file.path(tempdir(), "try-me", "toto.png"))
   expect_true(file.exists(f))
+  unlink(f)
 })

tests/testthat/test-render_reports.R

 skip_on_ci()
 
 test_that("render_reports works", {
-  path <- tempfile(pattern = "dir")
-  create_fairify(path, open = FALSE)
+  path <- helper_create_fairify()
   add_report("my_report", path)
   render_reports(reports_dir = file.path(path, "reports"),
                  output_format = "bookdown::gitbook")