test_that("serve_pprof()", {
  skip("interactive only")
  pprof <- record_pprof(slow_function())
  # Should launch a browser and not show a message.
  px <- serve_pprof(pprof, browse = TRUE, verbose = FALSE)
  px$kill()
  # Should show a message but not launch a browser.
  px <- serve_pprof(pprof, browse = FALSE, verbose = TRUE)
  px$kill()
})

test_that("serve_rprof()", {
  skip("interactive only")
  rprof <- record_rprof(slow_function())
  # Should launch a browser and not show a message.
  px <- serve_rprof(rprof, browse = TRUE, verbose = FALSE)
  px$kill()
  # Should show a message but not launch a browser.
  px <- serve_rprof(rprof, browse = FALSE, verbose = TRUE)
  px$kill()
})

test_that("pprof()", {
  skip("interactive only")
  # Should launch a browser and not show a message.
  px <- pprof(
    slow_function(),
    browse = TRUE,
    verbose = FALSE
  )
  px$kill()
  # Should show a message but not launch a browser.
  px <- pprof(
    slow_function(),
    browse = FALSE,
    verbose = TRUE
  )
  px$kill()
})

test_that("pprof() can time out", {
  skip("interactive only")
  start <- as.numeric(proc.time()["elapsed"])
  px <- pprof(while (TRUE) slow_function(), seconds_timeout = 5)
  message(as.numeric(proc.time()["elapsed"]) - start)
  px$kill()
})

test_that("test_pprof()", {
  skip("interactive only")
  # Should launch a browser and show a message.
  px <- test_pprof()
  px$kill()
})