tests/testthat/test_ES.R

In GabrielSartori/elasticR: Import Data from elasticSearch

library(testthat)

test_credential <-
  es.credential(
    "entreprise",
    "admin123",
    "search",
    "finance",
    "realties"
  )

test_that("connection create a single url", {
  expect_equal(object = length(test_credential),
               expected = 1)

})