inst/tinytest/test-log_start.R

In autometric: Background Resource Logging

local({
  if (log_support()) {
    temp <- tempfile()
    path <- file.path(temp, "x", "y", "z")
    log_start(seconds = 0.5, pids = c(local = Sys.getpid()),  path = path)
    log_start(seconds = 0.5, pids = Sys.getpid(), path = path) # idempotent
    Sys.sleep(2)
    log_stop()
    Sys.sleep(2)
    out <- readLines(path)
    expect_true(length(out) > 1L)
    expect_true(all(nzchar(out)))
    unlink(temp, recursive = TRUE, force = TRUE)
  }
})

local({
  old_option <- getOption("autometric_mock_no_support")
  options(autometric_mock_no_support = TRUE)
  expect_error(log_start(error = TRUE))
  options(autometric_mock_no_support = old_option)
})