tests/testthat/test-encode.R

In jinjar: Template Engine Inspired by 'Jinja'

test_that("dynamic dots work", {
  expect_snapshot(encode(a = 1, a = "b"), error = TRUE)
  expect_snapshot(encode(a = 1, "b", mtcars), error = TRUE)

  res <- jsonlite::toJSON(list(a = 1), auto_unbox = TRUE)
  expect_equal(encode(a = 1), res)
  expect_equal(encode(!!!list(a = 1)), res)
})