R Under development (unstable) (2025-06-04 r88278 ucrt) -- "Unsuffered Consequences" Copyright (C) 2025 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > ## This runs testme test script inst/testme/test-utils.R > ## Don't edit - it was autogenerated by inst/testme/deploy.R > future.callr:::testme("utils") Test 'utils' ... Sourcing 9 prologue scripts ... 01/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_prologue/001.load.R' 02/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_prologue/002.record-state.R' 03/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_prologue/030.imports.R' 04/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_prologue/050.utils.R' 05/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_prologue/090.context.R' 06/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_prologue/090.options.R' 07/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_prologue/091.envvars.R' 08/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_prologue/099.future-setup.R' 09/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_prologue/995.detrius-connections.R' Sourcing 9 prologue scripts ... done Running test script: 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/test-utils.R' > library(future.callr) Loading required package: future > message("*** Utility functions ...") *** Utility functions ... > message("- is_na() ...") - is_na() ... > stopifnot(is_na(NA), !is_na(TRUE), !is_na(FALSE), + !is_na(1), !is_na(NULL), !is_na(1:2), !is_na(rep(NA, times = 3)), + !is_na(rep(TRUE, 3 .... [TRUNCATED] > message("- is_false() ...") - is_false() ... > stopifnot(is_false(FALSE), !is_false(TRUE), !is_false(NA), + !is_false(1), !is_false(NULL), !is_false(1:2), !is_false(rep(FALSE, + tim .... [TRUNCATED] > message("- hpaste() & printf() ...") - hpaste() & printf() ... > x <- 1:6 > y <- 10:1 > z <- LETTERS[x] > printf("x = %s.\n", hpaste(x)) x = 1, 2, 3, ..., 6. > printf("x = %s.\n", hpaste(x, max_head = 2)) x = 1, 2, ..., 6. > printf("x = %s.\n", hpaste(x, max_head = 3)) x = 1, 2, 3, ..., 6. > printf("x = %s.\n", hpaste(x, max_head = 4)) x = 1, 2, 3, 4, 5, 6. > printf("x = %s.\n", hpaste(x, max_head = 1, max_tail = 2)) x = 1, ..., 5, 6. > printf("y = %s.\n", hpaste(y, max_head = Inf)) y = 10, 9, 8, 7, 6, 5, 4, 3, 2, 1. > printf("y = %s.\n", paste(y, collapse = ", ")) y = 10, 9, 8, 7, 6, 5, 4, 3, 2, 1. > printf("x = %s.\n", hpaste(x, last_collapse = " and ")) x = 1, 2, 3, 4, 5 and 6. > message("- mdebug(), mdebugf() and mstr() ...") - mdebug(), mdebugf() and mstr() ... > mdebug("Hello world!") NULL > mdebugf("Hello %s!", "world") NULL > mstr("Hello world!") NULL > message("- trim() ...") - trim() ... > mprint(trim(" hello ")) NULL > stopifnot(trim(" hello ") == "hello") > message("- is_os() ...") - is_os() ... > for (os in c("darwin", "freebsd", "irix", "linux", + "openbsd", "solaris", "windows")) { + mdebugf("is_os('%s') = %s", os, is_os(os)) + } > message("*** import_future() ...") *** import_future() ... > future <- import_future("future") > stopifnot(identical(future, future::future)) > future <- import_future("", default = future::future) > stopifnot(identical(future, future::future)) > res <- tryCatch(import_future(""), + error = identity) > stopifnot(inherits(res, "error")) > message("*** import_future() ... DONE") *** import_future() ... DONE > message("*** Utility functions ... DONE") *** Utility functions ... DONE Sourcing 6 epilogue scripts ... 01/06 epilogue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_epilogue/001.undo-future.R' 02/06 epilogue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_epilogue/002.undo-state.R' Failed to undo environment variables: - Expected environment variables: [n=213] '!ExitCode', 'ALLUSERSPROFILE', 'APPDATA', ..., 'tempdirname' - Environment variables still there: [n=0] - Environment variables missing: [n=1] 'MAKEFLAGS' Differences environment variable by environment variable: 03/06 epilogue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_epilogue/090.gc.R' 04/06 epilogue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_epilogue/099.session_info.R' 05/06 epilogue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_epilogue/995.detritus-connections.R' 06/06 epilogue script 'D:/RCompile/CRANincoming/R-devel/lib/future.callr/testme/_epilogue/999.detritus-files.R' Skipping, because path appears not to be an 'R CMD check' folder: 'D:/temp/2025_06_05_19_20_16_14476' Sourcing 6 epilogue scripts ... done Test time: user.self=0.1s, sys.self=0.01s, elapsed=0.1s, user.child=NAs, sys.child=NAs Test 'tempdirname' ... success > > proc.time() user system elapsed 0.45 0.04 0.45