unlink path after test

vimc · Oct 20, 2022 · 2303fdb · 2303fdb
1 parent be9f1e4
commit 2303fdb
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/tests/testthat/test-testing.R b/tests/testthat/test-testing.R
@@ -21,7 +21,8 @@ test_that("create_orderly_demo can create a git repo", {
 test_that("can create an orderly git repo from given source", {
   skip_on_cran()
   path <- tempfile()
-  dir.create(file.path(path))
+  dir.create(path)
+  on.exit(unlink(path, recursive = TRUE))
   source <- system.file("examples/demo", package = "orderly")
   prepare_git_example_from_source(source, path)
   expect_true(file.exists(file.path(path, ".git")))