tests/testthat/test-utils.R

test_that("%fl%", {
  tmp <- tempfile()
  file.create(tmp)
  expect_equal(tmp %fl% "y", tmp)
  expect_equal("" %fl% "y", "y")
})

test_that("random_port()", {
  port <- random_port()
  expect_true(is.integer(port))
  expect_equal(length(port), 1L)
})

test_that("if_any()", {
  expect_equal(if_any(TRUE, "a", "b"), "a")
  expect_equal(if_any(FALSE, "a", "b"), "b")
})

test_that("with_safe_path(), nonempty case", {
  hash <- "46f6ded6b2f73c352be884dae6317700"
  bin <- paste0(
    system.file(package = "processx", "bin", "px"),
    system.file(package = "processx", "bin", .Platform$r_arch, "px.exe")
  )
  px <- with_safe_path(
    hash,
    processx::run(bin, c("getenv", "PATH"))
  )
  expect_true(grepl(hash, px$stdout))
})

test_that("with_safe_path(), empty case", {
  hash <- ""
  bin <- paste0(
    system.file(package = "processx", "bin", "px"),
    system.file(package = "processx", "bin", .Platform$r_arch, "px.exe")
  )
  px <- with_safe_path("", processx::run(bin, c("getenv", "PATH")))
  expect_false(grepl("^:", px$stdout))
})

test_that("stop0()", {
  expect_error(stop0(123))
})

test_that("warn0()", {
  expect_warning(warn0(123))
})

Try the proffer package in your browser

Any scripts or data that you put into this service are public.

proffer documentation built on Feb. 16, 2023, 7:07 p.m.