tests/testthat/test-verb-window.R

In dbplyr: A 'dplyr' Back End for Databases

test_that("window_order errors for data frame", {
  expect_snapshot({
    (expect_error(window_order(data.frame(x = 1))))
    (expect_error(window_order("a")))
  })
})

test_that("window_order only accepts variables", {
  lf <- lazy_frame(x = 1, y = 1)
  expect_equal(window_order(lf, x, y) %>% op_sort(), unname(exprs(x, y)))
  expect_equal(window_order(lf, x, desc(y)) %>% op_sort(), unname(exprs(x, desc(y))))

  expect_snapshot({
    (expect_error(window_order(lf, x + y)))
  })
})

test_that("window order works afer renaming variable", {
  expect_snapshot({
    lazy_frame(x = 1, y = 1) %>%
      window_order(y) %>%
      rename(y2 = y) %>%
      mutate(x_cum = cumsum(x))

    lazy_frame(x = 1, y = 1) %>%
      rename(y2 = y) %>%
      window_order(y2) %>%
      mutate(x_cum = cumsum(x))
  })
})

test_that("window_frame errors for data frame", {
  expect_snapshot({
    (expect_error(window_frame(data.frame(x = 1))))
  })
})