~hrbrmstr/sergeant-caffeinated

ref: 135af6c1c0872d07fbd6df70bf876743976281ae sergeant-caffeinated/tests/testthat/test-sergeant.caffeinated.R -rw-r--r-- 367 bytes
135af6c1hrbrmstr 4j 1 year, 2 months ago
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
test_host <- Sys.getenv("DRILL_TEST_HOST", "localhost")

context("JDBC")
test_that("Core dbplyr ops work", {

  testthat::skip_on_cran()

  db <- src_drill_jdbc(test_host)

  expect_that(db, is_a("src_drill_jdbc"))

  test_dplyr <- tbl(db, "cp.`employee.json`")

  expect_that(test_dplyr, is_a("tbl"))
  expect_that(dplyr::count(test_dplyr, gender), is_a("tbl"))

})