tests/testthat/test-utils.R

In ropenscilabs/tic: Tasks Integrating Continuously: CI-Agnostic Workflow Definitions

test_that("deps", {
  expect_equal(get_deps_from_code(quote({})), character())
  expect_equal(get_deps_from_code(quote(pkg::fun)), "pkg")
  expect_equal(get_deps_from_code(quote(pkg::fun("test"))), "pkg")
  expect_equal(
    get_deps_from_code(
      quote({
        pkg1::fun1("test1")
        pkg2::fun2("test2")
        if (TRUE) {
          pkg3::fun2("test3")
        }
      })
    ),
    paste0("pkg", 1:3)
  )
})

test_that("%||%", {
  expect_identical(NULL %||% 1, 1)
  expect_identical(2 %||% 1, 2)
  expect_identical(2 %||% NULL, 2)
})

test_that("warningc()", {
  expect_warning(warningc("test"), "test", fixed = TRUE)
})

test_that("vlapply()", {
  expect_identical(vlapply(1:3, `==`, 2), c(FALSE, TRUE, FALSE))
})