tests/testthat/test-utils.R

In r-lib/ps: List, Query, Manipulate System Processes

test_that("errno", {
  err <- errno()
  expect_true(is.data.frame(err))

  expect_true("EINVAL" %in% err$name)
  expect_true("EBADF" %in% err$name)
})

test_that("str_strip", {
  tcs <- list(
    list("",  ""),
    list(" ", ""),
    list("a ", "a"),
    list(" a", "a"),
    list(" a ", "a"),
    list("    a       ", "a"),
    list(character(), character()),
    list(c("", NA, "a "), c("", NA, "a")),
    list("\ta\n", "a")
  )

  for (tc in tcs) {
    expect_identical(str_strip(tc[[1]]), tc[[2]])
  }
})

test_that("NA_time", {
  nat <- NA_time()
  expect_s3_class(nat, "POSIXct")
  expect_true(length(nat) == 1 && is.na(nat))
})

test_that("read_lines", {
  tmp <- tempfile()
  cat("foo\nbar\nfoobar", file = tmp)
  expect_silent(l <- read_lines(tmp))
  expect_equal(l, c("foo", "bar", "foobar"))
})