tests/testthat/test-discard.R

context("discard")

test_that("discard filters out elements.", {
  result <- transduce(discard(function(x) x <= 19), as_sum, 1:20, init = 0)
  expect_that(result, is_equivalent_to(20))
})
dirkschumacher/transduceR documentation built on May 15, 2019, 8:50 a.m.