tests/testthat/test-top-n.r

In piersharding/dplyr-calcite: dplyrcalcite: dplyr connector for Apache Calcite http://calcite.incubator.apache.org

context("SQL: top_n")
home <- Sys.getenv("HOME", "~/.m2/repository")
options(dplyr.jdbc.classpath =  paste0(home, "/.m2/repository"))
src <- src_calcite(getOption('dplyr.calcite.model', NULL))

test_that("top_n returns n rows", {
  test_df <- tbl(src, "Batting")
  top_four <- test_df %>% top_nx(4)
  expect_equal(dim(top_four), c(5, 24))
})