tests/testthat/test-internal.R

context("internal")

test_that("internal", {
  e <- list2env(list(a = 1), parent = emptyenv())
  expect_error(try_list(expression(symbol1, symbol2), envir = e))
  expect_equal(try_list(expression(symbol1, symbol2), 0, envir = e), 0)
}) 

Try the rlist package in your browser

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

rlist documentation built on Sept. 5, 2021, 5:30 p.m.