tests/testthat/test_edgeDetection.R

In biopixR: Extracting Insights from Biological Images

library(testthat)
library(biopixR)

test_that("edgeDetection", {
  img <- beads

  expect_equal(class(edgeDetection(img))[1], 'pixset')
  expect_error(edgeDetection(img, alpha = 10),
               regexp = "The parameters cannot be increased any further since no edges could be detected.")

  expect_gt(length(which(
    edgeDetection(img, alpha = 1, sigma = 0) == TRUE
  )), length(which(
    cannyEdges(img, alpha = 1, sigma = 0) == TRUE
  )))

  img3 <- droplet_beads

  expect_warning(edgeDetection(img3),
                 regexp = "Running edge detector on luminance channel")
})