tests/testthat/test-watershed-stream.R

In poissonconsulting/fwapgr: Client for BC Freshwater Atlas fwapg API

test_that("multiplication works", {
  rlang::local_options(nocache = TRUE)

  sf <- fwa_watershed_stream(356308001)
  expect_s3_class(sf, "sf")
  expect_s3_class(sf, "tbl_df")
  expect_s3_class(sf$geometry, "sfc_MULTILINESTRING")
  expect_identical(nrow(sf), 1L)
  expect_identical(colnames(sf), c("linear_feature_id", "geometry"))
  expect_identical(sf$linear_feature_id, 701348697L)
})

test_that("creek with more than one multistring!", {
  rlang::local_options(nocache = TRUE)

  sf <- fwa_watershed_stream(356366322L)
  expect_s3_class(sf, "sf")
  expect_s3_class(sf, "tbl_df")
  expect_s3_class(sf$geometry, "sfc_MULTILINESTRING")
  expect_identical(nrow(sf), 5L)
  expect_identical(colnames(sf), c("linear_feature_id", "geometry"))
  expect_identical(sf$linear_feature_id, c(706816010L, 706816140L, 706816149L, 706815933L, 706815750L))
})