Package 'exampletestr'

Create test shells.

Description

• For a given function fun() in a package, make_test_shell_fun() checks if there are examples for that function detailed in the 'man/' directory (in a '.Rd' file) and if so creates a shell (skeleton) of a testthat::test_that() test based on those examples. The created shell is then written to a corresponding file 'test-fun.R' (or if that already exists, 'test-fun-examples.R') in 'tests/testthat'.

• For a given file 'x.R' in the 'R/' directory of a package, for each function defined in that '.R' file, make_tests_shells_file() checks if there are examples for that function detailed in the 'man/' directory (in a '.Rd' file) and if so creates a shell (skeleton) of a testthat::test_that() test based on those examples via make_test_shell(). The created shells are then written to a corresponding file 'test-x.R' (or 'test-x-examples.R' if 'test-x.R' is already taken) in 'tests/testthat'.

• make_test_shells_pkg() runs make_test_shells_file() on every '.R' file in the 'R/' directory of a package.

Usage

make_test_shell_fun(
  fun,
  pkg_dir = ".",
  overwrite = FALSE,
  e_e = TRUE,
  roxytest = FALSE,
  open = TRUE,
  document = TRUE
)

make_tests_shells_file(
  r_file_name,
  pkg_dir = ".",
  overwrite = FALSE,
  e_e = TRUE,
  open = TRUE,
  document = TRUE
)

make_tests_shells_pkg(
  pkg_dir = ".",
  overwrite = FALSE,
  e_e = TRUE,
  open = FALSE,
  document = TRUE
)

Arguments

fun	The name of the function to make a test shell for.
pkg_dir	The directory of the R project for this package (defaults to current directory). Note that this is the parent directory of R/.
overwrite	Overwrite if the test file you're trying to create already exists?
e_e	Set this to FALSE to prevent anything from being put in the shell of a testthat::expect_equal() statement.
roxytest	Copy roxytest package ⁠@testexamples⁠ code to clipboard instead of creating file in tests/testthat?
open	Open the created test file in your editor after it is created?
document	Run roxygen2::roxygenize() to update package documentation before starting?
r_file_name	The name of the '.R' file within 'R/'. There's no need to specify the file path (as 'R/x.R', but you can do this if you want), you can just use 'x.R' for whichever file 'x' it is. You can also omit the '.R' for convenience, however using the wrong case (e.g. '.r' when the file actually has the extension '.R') will produce an error.

Value

The shell of the test file is written into tests/testthat. It has the same name as the .R file it was created from except it has "test_" tacked onto the front.

Examples

## Not run: 
pkg_dir <- "~/mylilpkg"
usethis::create_package(pkg_dir, rstudio = FALSE, open = FALSE)
fs::file_copy(
  system.file("extdata", c("detect.R", "match.R"),
    package = "exampletestr"
  ),
  paste0(pkg_dir, "/R")
)
make_test_shell_fun("str_detect()", pkg_dir,
  document = TRUE, roxytest = TRUE
)
make_test_shell_fun("str_detect()", pkg_dir,
  document = TRUE, open = FALSE
)
make_tests_shells_file("detect", pkg_dir,
  document = FALSE, open = FALSE
)
make_tests_shells_pkg(pkg_dir,
  overwrite = TRUE, document = FALSE
)
fs::dir_delete(pkg_dir)

## End(Not run)

---