tests/testthat/test-iteration.R

In FastUtils: Fast, Readable Utility Functions

test_that("Generate Unique Pairs Up To a Number", {
    expect_equal(
        getUniquePairsUpTo(5),
        list(
            c(1, 2), c(1, 3), c(1, 4), c(1, 5),
            c(2, 3), c(2, 4), c(2, 5), c(3, 4), c(3, 5), c(4, 5)
        )
    )
    expect_equal(getUniquePairsUpTo(1), list())
})

test_that("Zip Multiple Vectors or Lists", {
    expect_equal(
        zipit(1:3, letters[1:3]),
        list(list(1, "a"), list(2, "b"), list(3, "c"))
    )
})

test_that("Enumerate Elements with Indices", {
    expect_equal(
        enumerateit(letters[1:3]),
        list(list(1, "a"), list(2, "b"), list(3, "c"))
    )
    expect_equal(
        enumerateit(letters[1:3], zeroIndexed = TRUE),
        list(list(0, "a"), list(1, "b"), list(2, "c"))
    )
})

test_that("Get Index from Enumerated Element", {
    expect_equal(ind(list(2, "b")), 2)
})

test_that("Get Value from Enumerated Element by Index", {
    expect_equal(val(list(2, "b"), 1), "b")
})

test_that("Get First Value from Enumerated Element", {
    expect_equal(val1(list(1, "a")), "a")
})