tests/testthat/test-stepDiff.R

In DRIP: Discontinuous Regression and Image Processing

print("This is the beginning of test-stepDiff")

test_that("degree either 0 or 1", {
  expect_error(stepDiff(image = sar, bandwidth = 4, degree = 2.7))
  expect_no_error(stepDiff(image = matrix(0, 10, 10), bandwidth = 3,
                           degree = 0))
  expect_no_error(stepDiff(image = matrix(0, 10, 10), bandwidth = 3, degree = 0,
                           blur = TRUE))
  expect_no_error(stepDiff(image = matrix(0, 10, 10), bandwidth = 3,
                           degree = 1))
  expect_no_error(stepDiff(image = matrix(0, 10, 10), bandwidth = 3, degree = 1,
                           blur = TRUE))
})

print("This is the end of test-stepDiff")