tests/testthat/test-prom.R

In duckplyr: A 'DuckDB'-Backed Version of 'dplyr'

test_that("promises work as expected", {
  skip("Won't need")

  producer <- function(x) {
    42L
  }
  is_promise <- function(x) .Call(is_promise, x)

  expect_true(is_promise(.Call(promise, producer)))
  expect_true(.Call(promise, producer) %>% is_promise())

  p <- .Call(promise, producer)
  expect_false(is_promise(p))
})