tests/testthat/test-util.R

In mrc-ide/odin.api: Serve 'odin' Models via an API

test_that("null-or-value works", {
  expect_equal(1 %||% NULL, 1)
  expect_equal(1 %||% 2, 1)
  expect_equal(NULL %||% NULL, NULL)
  expect_equal(NULL %||% 2, 2)
})


test_that("Can uglify es6 code", {
  s <- "class a { };"
  s_ugly <- s # should be "class a{}"
  expect_equal(uglify(s), s_ugly)
  expect_equal(prepare_code(s, TRUE), s)
  expect_equal(prepare_code(s, FALSE), s_ugly)
})