tests/testthat/test-with-namespace.r

In TobCap/demagrittr: Decompile magrittr's Syntax to Normal R's Syntax

context("explicit usage of namespace function with '::' or ':::'")
suppressMessages(library("magrittr"))

test_that("equiv value7", {
  e1 <- quote(Nile %>% base::mean) # error
  e2 <- quote(Nile %>% base::mean()) # run
  e3 <- quote(Nile %>% base::mean(.)) # run

  expect_error(eval(demagrittr(e1, FALSE, mode = "eager")))
  expect_error(eval(demagrittr(e1, FALSE, mode = "lazy")))
  expect_error(eval(demagrittr(e1, FALSE, mode = "promise")))

  expect_identical(eval(e2), eval(demagrittr(e2, FALSE, mode = "eager")))
  expect_identical(eval(e2), eval(demagrittr(e2, FALSE, mode = "lazy")))
  expect_identical(eval(e2), eval(demagrittr(e3, FALSE, mode = "promise")))

  expect_identical(eval(e3), eval(demagrittr(e3, FALSE, mode = "eager")))
  expect_identical(eval(e3), eval(demagrittr(e3, FALSE, mode = "lazy")))
  expect_identical(eval(e3), eval(demagrittr(e3, FALSE, mode = "promise")))
})