tests/testthat/test-list-entities.R

In redivis/redivis-r: R interface for Redivis

test_that("dataset list", {
  organization <- redivis::organization("Demo")
  datasets = organization$list_datasets(max_results=10)
  expect_equal(length(datasets), 10)
})

test_that("dataset tables list", {
  organization <- redivis::organization("Demo")
  tables = organization$dataset('GHCN Daily Weather Data')$list_tables()
  expect_equal(length(tables), 5)
})

test_that("workflow tables list", {
  user <- redivis::user("imathews")
  tables = user$workflow('example_workflow_climate_analysis')$list_tables()
  expect_equal(length(tables), 2)
})

test_that("dataset get", {
  organization <- redivis::organization("Demo")
  dataset = organization$dataset('GHCN Daily Weather Data')$get()
  expect_true(!is.null(dataset$properties))
})

test_that("workflow get", {
  user <- redivis::user("imathews")
  workflow = user$workflow('example_workflow_climate_analysis')$get()
  expect_true(!is.null(workflow$properties))
})