source("incl/start.R")
library("listenv")
message("*** constant() ...")
## No global variables
f <- try(constant(42L), silent = FALSE)
print(f)
stopifnot(inherits(f, "ConstantFuture"))
print(resolved(f))
y <- value(f)
print(y)
stopifnot(y == 42L)
plan(constant)
## No global variables
f <- try(future(42L), silent = FALSE)
print(f)
stopifnot(inherits(f, "ConstantFuture"))
print(resolved(f))
y <- value(f)
print(y)
stopifnot(y == 42L)
message("*** constant() ... DONE")
source("incl/end.R")
Generated by dwww version 1.15 on Fri Jun 21 22:23:39 CEST 2024.