TESTS: Make sure tests work regardless of R_FUTURE_PLAN

[HenrikBengtsson]

It looks like the package checks fail when R_FUTURE_PLAN=multisession.

[HenrikBengtsson]

For example, with future 1.21.0-9000 and R_FUTURE_PLAN=multisession we get:

* checking LazyData ... NOTE
  'LazyData' is specified without a 'data' directory
* checking examples ... OK
* checking for unstated dependencies in ‘tests’ ... OK
* checking tests ... ERROR
  Running ‘Test-class.R’
Running the tests in ‘tests/Test-class.R’ failed.
Last 50 lines of output:
  41 futureCa.... FALSE          NA      NA    NA        NA     NA
  42 futureCa....  TRUE          NA      NA    NA        NA     NA
  43 futureCa.... FALSE          NA      NA    NA        NA     NA
  44 futureCa....  TRUE          NA      NA    NA        NA     NA
  45 resolved....    NA          NA      NA    NA        NA     NA
  46 demo, ma.... FALSE          NA      NA    NA        NA     NA
  47 demo, ma....  TRUE          NA      NA    NA        NA     NA
  48 nbrOfWorkers    NA          NA      NA    NA        NA     NA
  49         plan    NA          NA      NA    NA        NA     NA
  50 plan, wo....    NA          NA      NA    NA        NA     NA
  51 plan, wo....    NA          NA      NA    NA        NA     NA
  52 plan, wo....    NA          NA      NA    NA        NA     NA
  53 resolve,.... FALSE          NA      NA FALSE     FALSE     NA
  54 resolve,....  TRUE          NA      NA FALSE     FALSE     NA
  55 resolve,.... FALSE          NA      NA  TRUE     FALSE     NA
  56 resolve,....  TRUE          NA      NA  TRUE     FALSE     NA
  57 resolve,.... FALSE          NA      NA FALSE      TRUE     NA
  58 resolve,....  TRUE          NA      NA FALSE      TRUE     NA
  59 resolve,.... FALSE          NA      NA  TRUE      TRUE     NA
  60 resolve,....  TRUE          NA      NA  TRUE      TRUE     NA
  61 resolve,.... FALSE          NA      NA FALSE     FALSE     NA
  62 resolve,....  TRUE          NA      NA FALSE     FALSE     NA
  63 resolve,.... FALSE          NA      NA  TRUE     FALSE     NA
  64 resolve,....  TRUE          NA      NA  TRUE     FALSE     NA
  65 resolve,.... FALSE          NA      NA FALSE      TRUE     NA
  66 resolve,....  TRUE          NA      NA FALSE      TRUE     NA
  67 resolve,.... FALSE          NA      NA  TRUE      TRUE     NA
  68 resolve,....  TRUE          NA      NA  TRUE      TRUE     NA
  69 resolve,.... FALSE          NA      NA    NA        NA     NA
  70 resolve,....  TRUE          NA      NA    NA        NA     NA
  71 resolve,.... FALSE          NA      NA    NA        NA     NA
  72 resolve,....  TRUE          NA      NA    NA        NA     NA
  73 resolve,....    NA          NA      NA    NA        NA     NA
  74 resolved....    NA          NA      NA    NA        NA     NA
  75    rng, seed    NA          NA      NA    NA        NA     NA
  76 rng, see.... FALSE          NA      NA    NA        NA     NA
  77 rng, see....  TRUE          NA      NA    NA        NA     NA
  78 rng, see.... FALSE          NA      NA    NA        NA     NA
  79 rng, see....  TRUE          NA      NA    NA        NA     NA
  80 future, ....    NA          NA      NA    NA        NA  FALSE
  81 future, ....    NA          NA      NA    NA        NA   TRUE
  82 %<-%, stdout    NA          NA      NA    NA        NA  FALSE
  83 %<-%, stdout    NA          NA      NA    NA        NA   TRUE
  84 value, v....    NA          NA      NA    NA        NA     NA
  > 
  > message("Run first three tests ...")
  Run first three tests ...
  > 
  > library(future)
  > results <- run_tests(head(tests, 3L))
  Error: 'identical(plan("list"), state$plan)' is not TRUE
  Execution halted
* DONE
Status: 1 ERROR, 1 NOTE