tests/testthat/test-freduce.R

In functionals: Functional Programming with Parallelism and Progress Tracking

test_that("freduce sums numbers correctly", {
  expect_equal(freduce(1:5, `+`), 15)
})

test_that("freduce concatenates strings", {
  expect_equal(freduce(letters[1:4], paste0), "abcd")
})

test_that("freduce works with a custom binary function", {
  out <- freduce(list(1, 2, 3), function(x, y) x * y)
  expect_equal(out, 6)
})

test_that("freduce handles init argument", {
  expect_equal(freduce(1:3, `+`, .init = 10), 16)
})


test_that("freduce supports right-to-left reduction", {
  expect_equal(freduce(1:3, function(x, y) paste0(x, y), .right = TRUE), "123")
})

test_that("freduce supports accumulation and simplification", {
  expect_equal(freduce(1:4, `+`, .accumulate = TRUE), c(1, 3, 6, 10))
  expect_equal(freduce(1:4, `+`, .accumulate = TRUE, .simplify = FALSE), as.list(c(1, 3, 6, 10)))
})