tests/testthat/test-find_extendr.R

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

test_that("find_extendr_crate() returns path to Rust crate", {
  skip_if_not_installed("usethis")

  path <- local_package("testpkg")

  # capture setup messages
  withr::local_options(usethis.quiet = FALSE)

  expect_error(find_extendr_crate(), class = "rextendr_error")

  use_extendr(path, quiet = TRUE)

  rust_folder <- find_extendr_crate()

  expect_true(dir.exists(rust_folder))
})

test_that("find_extendr_manifest() returns path to Cargo manifest", {
  skip_if_not_installed("usethis")

  path <- local_package("testpkg")

  # capture setup messages
  withr::local_options(usethis.quiet = FALSE)

  expect_error(find_extendr_manifest(), class = "rextendr_error")

  use_extendr(path, quiet = TRUE)

  manifest_path <- find_extendr_manifest()

  expect_true(file.exists(manifest_path))
})