tests/testthat/test-looker3.R

In avantcredit/looker3: looker3 (http://github.com/abelcastilloavant/avant-looker3)

context("pull_data")

fake_env_vars <- list(
  url    = "fake.looker.com:111/",
  id     = "fake_client",
  secret = "fake_secret"
)

withr::with_envvar(c(
  "LOOKER_URL"    = fake_env_vars$url,
  "LOOKER_ID"     = fake_env_vars$id,
  "LOOKER_SECRET" = fake_env_vars$secret
), {

  describe("handling missing env vars", {

    test_that("it stops if LOOKER_URL is missing", {
      withr::with_envvar(c("LOOKER_URL" = ""),
        expect_error(pull_data(model = "look", view = "items", fields = "name"),
          "place your Looker 3.0 API url in the environment")
      )
    })

    test_that("it stops if LOOKER_ID is missing", {
      withr::with_envvar(c("LOOKER_ID" = ""),
        expect_error(pull_data(model = "look", view = "items", fields = "name"),
          "place your Looker 3.0 client id in the environment")
      )
    })

    test_that("it stops if LOOKER_SECRET is missing", {
      withr::with_envvar(c("LOOKER_SECRET" = ""),
        expect_error(pull_data(model = "look", view = "items", fields = "name"),
          "place your Looker 3.0 client secret in the environment")
      )
    })
  })

  describe("pull_data passes arguments to run_inline_query correctly", {
    with_mock(
      `looker3:::run_inline_query` = function(url, id, secret,
                                             model, view, fields, filters,
                                             limit, ...) {
        list(url = url, id = id, secret = secret, model = model,
             view = view, fields = fields, filters = filters,
             limit = limit)
      }, {
      args <- list(model = "look", view = "items",
        fields = c("category.name", "products.count"),
        filters = list("category.name" = "socks"))

      bw_compatible_args <- list(model = "look", view = "items",
        fields = c("category.name", "products.count"),
        filters = "category.name: socks")

      test_that("it passes args correctly, with default limit 1000",
        expect_equal(do.call(pull_data, args),
         c(list(url = fake_env_vars$url, id = fake_env_vars$id, secret = fake_env_vars$secret),
           args,
           list(limit = 1000)))
      )
      test_that("it passes args correctly, with limit passed as an argument",
        expect_equal(do.call(pull_data, c(args, list(limit = 20))),
         c(list(url = fake_env_vars$url, id = fake_env_vars$id, secret = fake_env_vars$secret),
           args,
           list(limit = 20)))
      )
      test_that("it parses lookR-formatted filters correctly",
        expect_equal(do.call(pull_data, bw_compatible_args),
         c(list(url = fake_env_vars$url, id = fake_env_vars$id, secret = fake_env_vars$secret),
           args,
           list(limit = 1000)))
      )
      })
  })
})