CLEANUP: Had some cut'n'paste uses of another package name in internal code and tests; changing only for the optics

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: parallelly
-Version: 1.46.1-9003
+Version: 1.46.1-9004
 Title: Enhancing the 'parallel' Package
 Imports:
     parallel,

R/010.cli.R

@@ -1,4 +1,4 @@
-parse_cmd_args <- function(patterns = list(), cmdargs = getOption("future.p2p.tests.cmdargs", commandArgs(trailingOnly = TRUE))) {
+parse_cmd_args <- function(patterns = list(), cmdargs = getOption(sprintf("%s.tests.cmdargs", .packageName), commandArgs(trailingOnly = TRUE))) {
   args <- list()
   for (pattern in patterns) {
     type <- attr(pattern, "type")

inst/testme/test-cli.R

@@ -40,10 +40,10 @@ stopifnot(inherits(args, "error"))
 
 print(parallelly::availableCores, call = FALSE)
 
-options(future.p2p.tests.cmdargs = character(0L))
+options(parallelly.tests.cmdargs = character(0L))
 print(parallelly::availableCores, call = TRUE)
 
-options(future.p2p.tests.cmdargs = c("--max=4"))
+options(parallelly.tests.cmdargs = c("--max=4"))
 print(parallelly::availableCores, call = TRUE)
 
 
@@ -68,28 +68,28 @@ output(list(abc = 42))
 output(c(abc = 42))
 
 
-options(future.p2p.tests.cmdargs = character(0L))
+options(parallelly.tests.cmdargs = character(0L))
 void <- print(fcn)
 
-options(future.p2p.tests.cmdargs = c("--abc=0", "--def=3.14"))
+options(parallelly.tests.cmdargs = c("--abc=0", "--def=3.14"))
 void <- print(fcn)
 
-options(future.p2p.tests.cmdargs = c("--abc=-1", "--def=3.14"))
+options(parallelly.tests.cmdargs = c("--abc=-1", "--def=3.14"))
 void <- print(fcn)
 
-options(future.p2p.tests.cmdargs = c("--abc=+1", "--def=3.14"))
+options(parallelly.tests.cmdargs = c("--abc=+1", "--def=3.14"))
 void <- print(fcn)
 
 parallelly:::cli_fcn_output(fcn) <- utils::str
-options(future.p2p.tests.cmdargs = c("--abc=+1", "--def=3.14"))
+options(parallelly.tests.cmdargs = c("--abc=+1", "--def=3.14"))
 void <- print(fcn)
 
 parallelly:::cli_fcn(fcn) <- list(structure(parallelly:::cli_arg_integer("abc"), type = "unknown"))
 void <- tryCatch(print(fcn), error = identity)
 print(void)
 stopifnot(inherits(void, "error"))
 
-options(future.p2p.tests.cmdargs = NULL)
+options(parallelly.tests.cmdargs = NULL)
 
 
 res <- tryCatch(parallelly:::cli_prune(), error = identity)