tests/testthat/test-freduce.R

test_that("freduce() supports long lists (kcf-jackson/sketch#5)", {
  fns <- rep(list(identity), 1000)
  expect_equal(freduce(1, fns), 1)
})
smbache/magrittr documentation built on March 18, 2023, 6:21 p.m.