TESTME: modernize

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: future.callr
-Version: 0.10.2-9000
+Version: 0.10.2-9002
 Depends:
     R (>= 3.4.0),
     future (>= 1.58.0)

inst/testme/deploy.R

@@ -21,7 +21,10 @@ if (!utils::file_test("-f", desc)) {
 }
 pkgname <- read.dcf(desc)[, "Package"]
 if (is.na(pkgname) || !nzchar(pkgname)) {
-  stop("Failed to infer package name from 'DESCRIPTION' file: ", sQuote(pkgname))
+  stop(
+    "Failed to infer package name from 'DESCRIPTION' file: ",
+    sQuote(pkgname)
+  )
 } else if (!requireNamespace(pkgname)) {
   stop("Package fail to load: ", sQuote(pkgname))
 }
@@ -35,7 +38,10 @@ code <- c(
   "## This runs 'testme' test inst/testme/test-<name>.R scripts",
   "## Don't edit - it was autogenerated by inst/testme/deploy.R",
   "testme <- function(name) {",
-  sprintf("  path <- system.file(package = '%s', 'testme', mustWork = TRUE)", pkgname),
+  sprintf(
+    "  path <- system.file(package = '%s', 'testme', mustWork = TRUE)",
+    pkgname
+  ),
   "  Sys.setenv(R_TESTME_PATH = path)",
   sprintf("  Sys.setenv(R_TESTME_PACKAGE = '%s')", pkgname),
   "  Sys.setenv(R_TESTME_NAME = name)",
@@ -51,8 +57,13 @@ for (kk in seq_along(files)) {
   source_file <- basename(file)
   name <- sub("^test-", "", sub("[.]R$", "", source_file))
   target_file <- file.path(target, source_file)
-  
-  message(sprintf("%02d/%02d test script %s", kk, length(files), sQuote(target_file)))
+
+  message(sprintf(
+    "%02d/%02d test script %s",
+    kk,
+    length(files),
+    sQuote(target_file)
+  ))
 
   ## Assert that testme script can be parsed
   res <- tryCatch(parse(file = file), error = identity)