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)
})
tidyverse/magrittr documentation built on March 9, 2023, 2 p.m.