tests/testthat/test-extract_points.R

In shar: Species-Habitat Associations

# testthat::context("test-extract_points")

landscape_classified <- classify_habitats(terra::rast(landscape), n = 5, style = "fisher")

points_df <- extract_points(raster = landscape_classified, pattern = species_b)

################################################################################

testthat::test_that("extract_points returns one row for each habitat", {

  testthat::expect_equal(nrow(points_df),
                         expected = 5)
})

testthat::test_that("extract_points counts all points present in the landscape", {

  extracted_points <- sum(points_df$count)

  testthat::expect_equal(extracted_points, expected = species_b$n)
})