tests/testthat/test-combination.R

context("Combination")

test_that("Combination", {
    I <- iterpc(5, 3, ordered = FALSE)
    getnext(I)
    expect_that(getnext(I)[3], equals(4))
    expect_that(getcurrent(I)[3], equals(4))
    expect_that(nrow(getall(I)), equals(10))

    I <- iterpc(3, 3, labels = c("a", "b", "c"), ordered = FALSE)
    getnext(I)
    expect_that(getnext(I)[3], equals(NULL))

    I <- iterpc(3, 2, ordered = FALSE)
    expect_that(nrow(getall(I)), equals(3))

    I <- iterpc(c(2, 2), 2, labels = c("a", "c"), ordered = FALSE)
    getnext(I)
    expect_that(getnext(I)[2], equals("c"))
    expect_that(nrow(getall(I)), equals(3))

    I <- iterpc(c(2, 2, 0), 2, labels = c("a", "b", "c"), ordered = FALSE)
    expect_that(nrow(getall(I)), equals(3))

    I <- iterpc(5, 3, ordered = FALSE, replace = TRUE)
    getnext(I)
    expect_that(getnext(I), equals(c(1, 1, 2)))
    expect_that(nrow(getall(I)), equals(35))

    I <- iterpc(5, 5, ordered = FALSE)
    expect_that(nrow(getall(I)), equals(1))

    I <- iterpc(5, 1, ordered = FALSE)
    expect_that(nrow(getall(I)), equals(5))

    I <- iterpc(5, 5, labels = 1:5, ordered = FALSE)
    expect_that(nrow(getall(I)), equals(1))

    I <- iterpc(5, 1, labels = 1:5, ordered = FALSE)
    expect_that(nrow(getall(I)), equals(5))

    I <- iterpc(5, 1, labels = 1:5, ordered = FALSE)
    expect_that(nrow(getall(I)), equals(5))

    I <- iterpc(1, 1, ordered = FALSE)
    expect_that(nrow(getall(I)), equals(1))
    getnext(I)
    expect_that(getnext(I), equals(NULL))
})

Try the iterpc package in your browser

Any scripts or data that you put into this service are public.

iterpc documentation built on March 26, 2020, 7:29 p.m.