tests/testthat/test-cone.R

In cardinalR: Collection of Data Structures

test_that("gen_cone() works", {
  set.seed(20240412)
  testthat::expect_snapshot(gen_cone(n = 500, p = 4, h = 5, ratio = 0.5))
  testthat::expect_error(gen_cone(n = 500, p = 2, h = 5, ratio = 0.5))
  testthat::expect_error(gen_cone(n = -500, p = 4, h = 5, ratio = 0.5))
  testthat::expect_error(gen_cone(n = 500, p = 4, h = -5, ratio = 0.5))
  testthat::expect_error(gen_cone(n = 500, p = 4, h = 5, ratio = 1.5))

})