tests/testthat/test-system.R

In ps: List, Query, Manipulate System Processes

test_that("ps_pids", {
  pp <- ps_pids()
  expect_true(is.integer(pp))
  expect_true(Sys.getpid() %in% pp)
})

test_that("ps", {
  pp <- ps()
  expect_true(inherits(pp, "tbl"))
  expect_true(Sys.getpid() %in% pp$pid)

  px <- processx::process$new(px(), c("sleep", "5"))
  x <- ps_handle(px$get_pid())
  on.exit(px$kill(), add = TRUE)
  pp <- ps(after = Sys.time() - 60 * 60)
  ct <- lapply(pp$pid, function(p) {
    tryCatch(ps_create_time(ps_handle(p)), error = function(e) NULL)
  })
  ct <- not_null(ct)
  expect_true(all(map_lgl(ct, function(x) x > Sys.time() - 60 * 60)))

  pp <- ps(user = ps_username(ps_handle()))
  expect_true(all(pp$username == ps_username(ps_handle())))
})

test_that("ps_boot_time", {
  bt <- ps_boot_time()
  expect_s3_class(bt, "POSIXct")
  expect_true(bt < Sys.time())
})

test_that("ps_os_type", {
  os <- ps_os_type()
  expect_true(is.logical(os))
  expect_true(any(os))
  expect_equal(
    names(os),
    c("POSIX", "WINDOWS", "LINUX", "MACOS"))
})

test_that("ps_is_supported", {
  expect_equal(any(ps_os_type()), ps_is_supported())
})

test_that("supported_str", {
  expect_equal(supported_str(), "Windows, Linux, Macos")
})

test_that("ps_os_name", {
  expect_true(ps_os_name() %in% names(ps_os_type()))
})

test_that("ps_users runs", {
  expect_error(ps_users(), NA)
})

test_that("ps_cpu_count", {
  log <- ps_cpu_count(logical = TRUE)
  phy <- ps_cpu_count(logical = FALSE)
  if (!is.na(log) && !is.na(phy)) expect_true(log >= phy)
  if (!is.na(log)) expect_true(log > 0)
  if (!is.na(phy)) expect_true(phy > 0)
})