tests/testthat/test-spq_head.R

test_that("spq_head() works", {
  query = spq_init() %>% spq_head(5)
  expect_equal(query[["limit"]], 5)

  query = spq_init() %>% spq_head(NULL)
  expect_equal(query[["limit"]], NULL)
})
lvaudor/glitter documentation built on Jan. 30, 2024, 1:34 a.m.