diff --git a/tests/testthat/_snaps/create_extendr_package.md b/tests/testthat/_snaps/create_extendr_package.md new file mode 100644 index 00000000..c0d992f8 --- /dev/null +++ b/tests/testthat/_snaps/create_extendr_package.md @@ -0,0 +1,48 @@ +# create_extendr_package() creates an extendr package project correctly + + Code + rextendr:::create_extendr_package(path = dir, roxygen = TRUE, check_name = TRUE, + edition = "2021") + Message + v Setting active project to 'TEMPORARY_PACKAGE_PATH' + v Creating 'R/' + v Writing 'DESCRIPTION' + Output + Package: testCreateExtendrPackage + Title: What the Package Does (One Line, Title Case) + Version: 0.0.0.9000 + Authors@R (parsed): + * First Last [aut, cre] (YOUR-ORCID-ID) + Description: What the package does (one paragraph). + License: `use_mit_license()`, `use_gpl3_license()` or friends to pick a + license + Encoding: UTF-8 + Roxygen: list(markdown = TRUE) + RoxygenNote: 7.2.3 + Message + v Writing 'NAMESPACE' + v Writing 'testCreateExtendrPackage.Rproj' + v Adding '^testCreateExtendrPackage\\.Rproj$' to '.Rbuildignore' + v Adding '.Rproj.user' to '.gitignore' + v Adding '^\\.Rproj\\.user$' to '.Rbuildignore' + v Setting active project to '' + v Setting active project to 'TEMPORARY_PACKAGE_PATH' + v Adding '^src/\\.cargo$' to '.Rbuildignore' + +--- + + Code + cat_file("INDEX") + Output + Package: testCreateExtendrPackage + + BUILD COMPLETE: + The project build successfully generated the necessary R package files. + + NOTE: + To use {rextendr} in any meaningful way, the user must have + Rust and Cargo available on their local machine. To check that you do, + please run `rextendr::rust_sitrep()`. This will provide a + detailed report of the current state of your Rust infrastructure, along + with some helpful advice about how to address any issues that may arise. + diff --git a/tests/testthat/test-create_extendr_package.R b/tests/testthat/test-create_extendr_package.R new file mode 100644 index 00000000..eb0ccbbd --- /dev/null +++ b/tests/testthat/test-create_extendr_package.R @@ -0,0 +1,26 @@ +test_that("create_extendr_package() creates an extendr package project correctly", { + + skip_if_not_installed("usethis") + + # capture setup messages + withr::local_options(usethis.quiet = FALSE) + + dir <- local_temp_dir("testCreateExtendrPackage") + + scrubbed_string <- normalizePath(dir, winslash = "/") + + expect_snapshot( + rextendr:::create_extendr_package( + path = dir, + roxygen = TRUE, + check_name = TRUE, + edition = "2021" + ), + transform = function(lines) { + stringi::stri_replace_all_fixed(lines, scrubbed_string, "TEMPORARY_PACKAGE_PATH") + } + ) + + expect_snapshot(cat_file("INDEX")) + +})