tests/testthat/test-query_parameters.R

In ropensci/nasapower: NASA POWER API Client

test_that("query_parameters() returns proper list of info", {
  skip_if_offline()
  vcr::use_cassette("query_parameters_comm&temporal_api", {
    par_query <- query_parameters(
      community = "ag",
      pars = "T2M",
      temporal_api = "Daily"
    )

    expect_type(par_query, "list")
    expect_length(par_query, 1)
    expect_named(par_query, "T2M")
  })
})

test_that("query_parameters() returns list of parameter information", {
  skip_if_offline()
  par_query <- query_parameters(pars = "T2M")
  expect_type(par_query, "list")
  expect_length(par_query, 1)
  expect_named(par_query, "T2M")
})

test_that("query_parameters() stops if par and community only supplied", {
  skip_if_offline()
  expect_error(query_parameters(
    pars = "T2M",
    community = "AG"
  ))
})

test_that("query_parameters() stops if par and community only supplied", {
  skip_if_offline()
  expect_error(query_parameters(
    pars = "T2M",
    temporal_api = "daily"
  ))
})

test_that("query_parameters() stops if metadata is not Boolean", {
  skip_if_offline()
  expect_error(
    query_parameters(
      pars = "T2M",
      community = "ag",
      temporal_api = "daily",
      metadata = "orange"
    )
  )
})

test_that("query_parameters() stops if community is invalid", {
  skip_if_offline()
  expect_error(
    query_parameters(
      pars = "T2M",
      community = "res",
      temporal_api = "daily",
      metadata = TRUE
    )
  )
})

test_that("query_parameters() stops if temporal_api is invalid", {
  skip_if_offline()
  expect_error(
    query_parameters(
      pars = "T2M",
      community = "ag",
      temporal_api = "ag",
      metadata = TRUE
    )
  )
})