inst/tests/test-ammoc.R

In crowding/vadr: Macros, metaprogramming, and pleasant programming idioms.

context("ammoc")

test_that("returns first arg, discards rest", local({
  y <- "hello"
  res <- ammoc(x <- y, rm(y))
  expect_false(exists("y", inherits=FALSE))
  expect_equal(x, "hello")
  expect_equal(res, "hello")
}))