tests/testthat/test-clean.R

In rextendr: Call Rust Code from R using the 'extendr' Crate

test_that("rextendr::clean() removes cargo target directory & binaries", {
  path <- local_package("testpkg")
  use_extendr()
  document()

  expect_equal(length(dir("src", pattern = "testpkg\\..*")), 1)
  expect_true(dir.exists(file.path("src", "rust", "target")))
  clean()

  expect_equal(length(dir("src", pattern = "testpkg\\..*")), 0)
  expect_false(dir.exists(file.path("src", "rust", "target")))
})