tests/testthat/test-assertions.R

context("assertions")

test_that("erroneous input throws", {
  x <- rbind(c(0, 1), c(1, 1), c(1, 0), c(0, 0))

  expect_error(poi(x, precision = c(1, 0.5)))
  expect_error(poi(x, precision = "f"))
})

Try the polylabelr package in your browser

Any scripts or data that you put into this service are public.

polylabelr documentation built on April 19, 2020, 3:58 p.m.