tests/testthat/test-handle_desc.R

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

test_that("desc() is handled without qualification", {
  out <-
    duckdb_tibble(a = 1:3, .prudence = "stingy") %>%
    arrange(desc(a)) %>%
    pull()

  expect_identical(out, 3:1)
})

test_that("desc() is handled with qualification", {
  out <-
    duckdb_tibble(a = 1:3, .prudence = "stingy") %>%
    arrange(dplyr::desc(a)) %>%
    pull()

  expect_identical(out, 3:1)
})

test_that("desc() fails if it points elsewhere", {
  desc <- function(...) {}

  expect_snapshot(error = TRUE, {
    duckdb_tibble(a = 1:3, .prudence = "stingy") %>%
      arrange(desc(a))
  })
})

test_that("desc() fails for more than one argument", {
  expect_snapshot(error = TRUE, {
    duckdb_tibble(a = 1:3, b = 4:6, .prudence = "stingy") %>%
      arrange(desc(a, b))
  })
})