tests/testthat/test-stations.R

In ropenscilabs/riem: Accesses Weather Data from the Iowa Environment Mesonet

test_that("riem_stations returns the right output", {
  httptest2::with_mock_dir(file.path("fixtures", "stations"), {
    output <- riem_stations(network = "IN__ASOS")
  })
  expect_s3_class(output, "tbl_df")
  expect_type(output$id, "character")
  expect_type(output$name, "character")
  expect_type(output$lon, "double")
  expect_type(output$lat, "double")
})


test_that("riem_stations returns error if code does not exist", {
  httptest2::with_mock_dir(file.path("fixtures", "networks"), {
    expect_snapshot_error(riem_stations(network = NULL))
    expect_snapshot_error(riem_stations(network = "IN__ASOS2"))
  })
})