tests/testthat/test_check_valleyline.R

In FluvialGeomorph/fluvgeo: A Package for Fluvial Geomorphic Analysis

library(fluvgeo)
context("check_valleyline")

test_that("check valleyline", {
  expect_true(check_valleyline(fluvgeo::sin_valleyline_sf))
})

test_that("check not valleyline", {
  expect_error(check_valleyline(fluvgeo::sin_features_sf))
  expect_error(check_valleyline(fluvgeo::sin_loop_points_sf))
  expect_error(check_valleyline(fluvgeo::sin_bankline_points_sf))
})