tests/testthat/test-quantify.R

In iterors: Fast, Compact Iterators and Tools

test_that("quantify functions properly with a logical vector", {
  set.seed(42)
  x <- sample(c(TRUE, FALSE), size=10, replace=TRUE)
  expect_equal(quantify(x), sum(x))
})

test_that("quantify functions properly with an iterator from a logical vector", {
  set.seed(42)
  x <- sample(c(TRUE, FALSE), size=10, replace=TRUE)
  it <- iteror(x)
  expect_equal(quantify(it), sum(x))
})