tests/testthat/test-basic.R

In bfatemi/isdata: DOCUMENTATION NEEDED

library(stringr)
library(data.table)
library(RODBC)

context("Testing basic functionality")

test_that("Get database string", {
  skip_on_travis()
  isConnString(isConnParams("cortex_aws"))

  expect_true(str_detect(isConnString("morpheus"), "^Server\\=.+morpheus$"))
  expect_true(str_detect(isConnString("EDWD"), "^Server\\=.+EDW$"))
})


# test_that("Get sample data", {
#   skip_on_travis()
#
#   db  <- "morpheus"
#   tbl <- "EntryTypes"
#   wh  <- NULL
#
#
#   expect_is(isiData(db, tbl), "data.table")
#   expect_gt(nrow(isiData(db, tbl)), 0)
# })
#
#
# test_that("test argument 'max_rows'", {
#   skip_on_travis()
#
#   db  <- "morpheus"
#   tbl <- "MainLog"
#   wh  <- NULL
#
#   max_rows <- 20000
#   DT <- isiData(db, tbl, max_rows = max_rows)
#
#   expect_is(DT, "data.table")
#   expect_lte(nrow(DT), max_rows)
#   expect_gte(nrow(DT), max_rows-1)
# })


# devtools::evalq_clean({
#   library(secret)
#   local_key()
#
#
# })