don't clean temp files from unit tests

Author: ThierryO

tests/testthat/test_a_basics.R

@@ -222,8 +222,6 @@ test_that("write_vc() and read_vc() on a file system", {
       expected.label = paste0("sorted_test_data$", i)
     )
   }
-
-  file.remove(list.files(root, recursive = TRUE, full.names = TRUE))
 })
 
 test_that(
@@ -299,7 +297,6 @@ test_that("user specified na strings work", {
     grep("junk", readLines(file.path(root, fn[1]), encoding = "UTF-8")),
     2:4
   )
-  file.remove(list.files(root, recursive = TRUE, full.names = TRUE))
 })
 
 test_that("write_vc() allows changes in factor levels", {
@@ -327,7 +324,6 @@ test_that("write_vc() allows changes in factor levels", {
     write_vc(x, "factor_levels", root),
     "New factor labels for 'test_factor'"
   )
-  file.remove(list.files(root, recursive = TRUE, full.names = TRUE))
 })
 
 test_that("meta attributes are printed as yaml", {

tests/testthat/test_b_is_git2rmeta.R

@@ -167,8 +167,3 @@ test_that("is_git2rmeta handle git repositories", {
   expect_true(is_git2rmeta(file = file, root = root))
   expect_true(is_git2rdata(file = file, root = root))
 })
-
-file.remove(list.files(git2r::workdir(root), recursive = TRUE,
-                       full.names = TRUE))
-file.remove(list.files(git2r::workdir(root), recursive = TRUE,
-                       include.dirs = TRUE, full.names = TRUE))

tests/testthat/test_b_prune.R

@@ -77,11 +77,4 @@ test_that("rm_data & prune_meta", {
   )
   expect_identical(current[current != "test1.yml"],
                    list.files(root, recursive = TRUE))
-
-  file.remove(
-    list.files(root, recursive = TRUE, full.names = TRUE)
-  )
-  file.remove(
-    list.files(root, recursive = TRUE, include.dirs = TRUE, full.names = TRUE)
-  )
 })

tests/testthat/test_b_special.R

@@ -79,6 +79,4 @@ test_that("handle special characters", {
   yaml::write_yaml(yaml_file, file.path(root, "factor2.yml"))
   expect_warning(read_vc("factor2", root = root),
                "Mismatching data hash. Data altered outside of git2rdata.")
-
-  file.remove(list.files(root, recursive = TRUE, full.names = TRUE))
 })

tests/testthat/test_b_verify_vc.R

@@ -18,11 +18,4 @@ test_that("verify_vc", {
     verify_vc("test.txt", root = root, variables = c("test_integer", "junk")),
     "variables missing.*junk"
   )
-
-  file.remove(
-    list.files(root, recursive = TRUE, full.names = TRUE)
-  )
-  file.remove(
-    list.files(root, recursive = TRUE, include.dirs = TRUE, full.names = TRUE)
-  )
 })

tests/testthat/test_e_empty_label.R

@@ -99,5 +99,3 @@ test_that("relabel handles empty labels", {
   relabel(file = file, root = root, change = change)
   expect_is(mydfr <- read_vc(file = file, root = root), "data.frame")
 })
-
-file.remove(list.files(root, recursive = TRUE, full.names = TRUE))

tests/testthat/test_e_non_ascii.R

@@ -39,5 +39,3 @@ test_that("special character are written properly as verbose factor", {
   )
   expect_equivalent(read_vc(file = file, root = root), characters)
 })
-
-file.remove(list.files(root, recursive = TRUE, full.names = TRUE))

tests/testthat/test_e_upgrade.R

@@ -61,9 +61,6 @@ test_that("upgrade_data() works on single files", {
   )
 })
 
-file.remove(
-  list.files(root, recursive = TRUE, full.names = TRUE)
-)
 root <- tempfile("git2rdata-upgrade")
 dir.create(root)
 origin <- system.file("testthat", package = "git2rdata")
@@ -90,9 +87,7 @@ dir.create(root)
 origin <- system.file("testthat", package = "git2rdata")
 file.copy(origin, root, recursive = TRUE)
 path <- file.path(root, "testthat")
-file.remove(
-  list.files(path, pattern = "0_0_4", full.names = TRUE)
-)
+file.remove(list.files(path, pattern = "0_0_4", full.names = TRUE))
 repo <- git2r::init(root)
 git2r::config(repo, user.name = "Alice", user.email = "[email protected]")
 git2r::add(repo, list.files(root, recursive = TRUE))
@@ -118,11 +113,6 @@ test_that("upgrade_data() works on a git repository", {
     c(staged = 3L, unstaged = 0L, untracked = 0L)
   )
 })
-file.remove(
-  list.files(
-    git2r::workdir(repo), recursive = TRUE, full.names = TRUE, all.files = TRUE
-  )
-)
 
 test_that("validation", {
   root <- tempfile("git2rdata-upgrade")
@@ -141,5 +131,4 @@ test_that("validation", {
     upgrade_data(file = "verbose_0_0_4", root = path),
     "is not a git2rdata object"
   )
-  file.remove(list.files(path, full.names = TRUE))
 })

tests/testthat/test_e_validate_metadata.R

@@ -61,5 +61,3 @@ test_that("write_vc() checks existing metadata", {
     "Existing metadata file is invalid"
   )
 })
-
-file.remove(list.files(root, recursive = TRUE, full.names = TRUE))

tests/testthat/test_f_split_by.R

@@ -101,6 +101,4 @@ test_that("write_vc() handles the split_by argument", {
     suppressWarnings(is_git2rdata("sorted", root, "warning")),
     "Corrupt data, incorrect header in index.tsv"
   )
-
-  file.remove(list.files(root, recursive = TRUE, full.names = TRUE))
 })