You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
571 B
23 lines
571 B
context("basic functionality")
|
|
test_that("we can do something", {
|
|
|
|
testthat::skip_on_cran()
|
|
testthat::skip_on_travis()
|
|
|
|
ds <- src_drill("drillex")
|
|
db <- tbl(ds, "cp.`employee.json`")
|
|
|
|
count(db, gender, marital_status) %>%
|
|
collect() -> res
|
|
|
|
expect_that(res, is_a("data.frame"))
|
|
|
|
dc <- drill_connection("drillex")
|
|
expect_equal(drill_active(dc), TRUE)
|
|
|
|
#con <- drill_jdbc("drill1:2181", "jla")
|
|
con <- drill_jdbc("localhost:31010", use_zk=FALSE)
|
|
res <- drill_query(con, "SELECT * FROM cp.`employee.json`")
|
|
expect_that(res, is_a("data.frame"))
|
|
|
|
})
|
|
|