inst/tinytest/test_qae.R

In WinVector/wrapr: Wrap R Tools for Debugging and Parametric Programming

test_qae <- function() {
  v <- wrapr::qae(a = 1, b := 2, c %:=% 3)
  expect_equal(c(a = "1", b = "2", c = "3"), v)

  v2 <- qae(a = 1, b := 2, c %:=% 3)
  expect_equal(c(a = "1", b = "2", c = "3"), v2)

  invisible(NULL)
}

test_qae()