tests/testthat/test-last.R

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

test_that("last_rel() works", {
  last_rel_store(NULL)
  expect_null(last_rel())

  out <- duckplyr_mutate(data.frame(a = 1), b = 2)
  rel <- duckdb$rel_from_altrep_df(out)

  expect_null(last_rel())

  expect_silent(nrow(out))
  expect_identical(last_rel(), rel)
})