tests/testthat/test_check_features.R

In FluvialGeomorph/fluvgeo: A Package for Fluvial Geomorphic Analysis

library(fluvgeo)
context("check_features")

# sf
test_that("check features", {
  expect_true(check_features(fluvgeo::sin_features_sf))
})

test_that("not features points", {
  expect_error(check_features(fluvgeo::sin_flowline_sf))
  expect_error(check_features(fluvgeo::sin_loop_points_sf))
  expect_error(check_features(fluvgeo::sin_bankline_points_sf))
})

# sf
features_fc   <- file.path(system.file("extdata", "testing_data.gdb",
                                       package = "fluvgeo"),
                           "feature_dataset/features")
features_sf  <- fluvgeo::fc2sf(features_fc)

test_that("check features", {
  expect_true(check_features(features_sf))
})