inst/testme/_epilogue/995.detritus-connections.R

In futurize: Parallelize Common Functions via One Magic Function

## Look for detritus files
testme <- as.environment("testme")
local({
  delta <- diff_connections(get_connections(), testme[["testme_connections"]])
  if (any(lengths(delta) > 0)) {
    message(sprintf("Detritus connections generated by test %s:", sQuote(testme[["name"]])))
    print(delta)
  }
})