Does deleting work?

mrc-ide · May 31, 2024 · 2840bf0 · 2840bf0
1 parent 15857ef
commit 2840bf0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-location.R b/tests/testthat/test-location.R
@@ -1077,8 +1077,8 @@ test_that("can prune orphans from tree", {
 test_that("don't prune referenced orphans", {
   root <- create_temporary_root()
   id <- create_random_packet_chain(root, 3)
-  unlink(file.path(root$path, "archive", "a"), recursive = TRUE)
-  unlink(file.path(root$path, "archive", "c"), recursive = TRUE)
+  fs::dir_delete(file.path(root$path, "archive", "a"))
+  fs::dir_delete(file.path(root$path, "archive", "c"))
   suppressMessages(orderly_validate_archive(action = "orphan", root = root))
   expect_equal(nrow(root$index$location(orphan)), 2)