tests/testthat/test-enumerate.R

In iterors: Fast, Compact Iterators and Tools

test_that("test01", {
    actual <- as.list(i_enumerate(icount(3)))
    index <- 1:3
    expected <- lapply(index, function(i) list(index = i, value = i))
    expect_equal(expected, actual)
})

test_that("test02", {
    actual <- as.list(i_enumerate(c()))
    expected <- list()
    expect_equal(expected, actual)
})

test_that("test03", {
    x <- rnorm(100)
    actual <- as.list(i_enumerate(x))
    expected <- as.list(i_zip(index = icount(), value = x))
    expect_equal(expected, actual)
})