tests/testthat/test_hydrometric.R

In rywhale/ecccgeometR: What the Package Does (One Line, Title Case)

test_that("eccc_hydro_stns return a tibble with 10 columns", {

  skip_if_net_down()

  stns <- eccc_hydro_stns(
    query = list(
      "STATUS_EN" = "ACTIVE",
      "PROV_TERR_STATE_LOC" = "MB")
    )

  expect_type(stns, "list")

  expect(
    ncol(stns) == 10,
    failure_message = "Hydrometric metadata columns incorrect."
    )

})