From 17df5622345d7484ede841077a8b3ff21969419f Mon Sep 17 00:00:00 2001
From: David Dorchies <david.dorchies@inrae.fr>
Date: Tue, 27 Feb 2024 12:54:29 +0100
Subject: [PATCH] tests: clean environment after tests
---
tests/testthat/test-add_report.R | 1 +
tests/testthat/test-create_fairify.R | 1 +
tests/testthat/test-create_reports.R | 1 +
tests/testthat/test-loadConfig.R | 2 +-
tests/testthat/test-mermaid.R | 2 ++
tests/testthat/test-render_reports.R | 3 +--
6 files changed, 7 insertions(+), 3 deletions(-)
diff --git a/tests/testthat/test-add_report.R b/tests/testthat/test-add_report.R
index dc6a42d..b8a9b92 100644
--- a/tests/testthat/test-add_report.R
+++ b/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)
})
diff --git a/tests/testthat/test-create_fairify.R b/tests/testthat/test-create_fairify.R
index 416f801..051daab 100644
--- a/tests/testthat/test-create_fairify.R
+++ b/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)
})
diff --git a/tests/testthat/test-create_reports.R b/tests/testthat/test-create_reports.R
index 8f94b1b..dcec0e2 100644
--- a/tests/testthat/test-create_reports.R
+++ b/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)
})
diff --git a/tests/testthat/test-loadConfig.R b/tests/testthat/test-loadConfig.R
index 54af98f..6dabbd7 100644
--- a/tests/testthat/test-loadConfig.R
+++ b/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)
})
diff --git a/tests/testthat/test-mermaid.R b/tests/testthat/test-mermaid.R
index 772cc8f..63a334b 100644
--- a/tests/testthat/test-mermaid.R
+++ b/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)
})
diff --git a/tests/testthat/test-render_reports.R b/tests/testthat/test-render_reports.R
index 6ca9698..55bb42f 100644
--- a/tests/testthat/test-render_reports.R
+++ b/tests/testthat/test-render_reports.R
@@ -1,8 +1,7 @@
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")
--
GitLab