test_that("onLoad is correct", {
  known <- subprocess:::known_signals()

  # do not mess with the actual namespace
  dotOnLoad  <- subprocess:::.onLoad
  environment(dotOnLoad) <- new.env(parent = asNamespace("subprocess"))
  environment(dotOnLoad)$signals <- list()

  # intercept assignments
  assignMock <- mock(T, cycle = TRUE)
  mockery::stub(dotOnLoad, 'assign', assignMock)
  dotOnLoad('libname', 'subprocess')

  expect_called(assignMock, length(known))

Try the subprocess package in your browser

Any scripts or data that you put into this service are public.

subprocess documentation built on May 2, 2019, 4:04 p.m.