TESTME: modernize

HenrikBengtsson · HenrikBengtsson · commit 8a31cc960e6d · 2025-12-20T14:58:36.000-08:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: future.tests
 Title: Test Suite for 'Future API' Backends
-Version: 0.9.0-9013
+Version: 0.9.0-9014
 Authors@R: c(
   person("Henrik", "Bengtsson", role = c("aut", "cre", "cph"), email = "henrikb@braju.com"),
   person(family = "The R Consortium", comment = "Project was awarded an Infrastructure Steering Committee (ISC) grant in 2017", role = "fnd"))
diff --git a/inst/testme/deploy.R b/inst/testme/deploy.R
@@ -62,11 +62,13 @@ for (kk in seq_along(files)) {
 
   ## Generate R unit test script
   code <- c(
+    "#! /usr/bin/env Rscript",
     sprintf("## This runs testme test script inst/testme/test-%s.R", name),
     "## Don't edit - it was autogenerated by inst/testme/deploy.R",
     sprintf('%s:::testme("%s")', pkgname, name)
   )
   writeLines(code, con = target_file)
+  Sys.chmod(target_file, mode = "0755")
 }
 
 message(sprintf("Deploying %d test scripts ... done", length(files)))
diff --git a/inst/testme/run.R b/inst/testme/run.R

Original file line number	Diff line number	Diff line change
`@@ -62,11 +62,13 @@ for (kk in seq_along(files)) {`
`62`	`62`
`63`	`63`	`## Generate R unit test script`
`64`	`64`	`code <- c(`
	`65`	`+ "#! /usr/bin/env Rscript",`
`65`	`66`	`sprintf("## This runs testme test script inst/testme/test-%s.R", name),`
`66`	`67`	`"## Don't edit - it was autogenerated by inst/testme/deploy.R",`
`67`	`68`	`sprintf('%s:::testme("%s")', pkgname, name)`
`68`	`69`	`)`
`69`	`70`	`writeLines(code, con = target_file)`
	`71`	`+ Sys.chmod(target_file, mode = "0755")`
`70`	`72`	`}`
`71`	`73`
`72`	`74`	`message(sprintf("Deploying %d test scripts ... done", length(files)))`