tests/testthat/test-area.R

In ptds2021/pkghw4g6: Estimate and plot the area of a shape

# Test whether the plot (i.e. output) is visible
test_that("pkghw4g6 works", {
  area <- pkghw4g6::estimate_area()
  plot_shape <- pkghw4g6::plot_area(area)
  expect_visible(plot_shape)
})

# Test inputs provided
test_that("input check", {
  expect_error(estimate_area(B = 0, seed = 10))
})

# Test inputs provided
test_that("input check", {
  expect_type(estimate_area(B = 1000, seed = 10), "list")
})