tests/testthat/test-abstract-category.R

In crunch: Crunch.io Data Tools

context("Abstract Categories")

insrts <- Insertions(data = list(
    list(
        anchor = 6, name = "Low",
        `function` = "subtotal", args = c(1, 2)
    ),
    list(
        anchor = 7, name = "High",
        `function` = "subtotal", args = c(9, 10)
    )
))

insrts2 <- Insertions(data = list(
    list(anchor = 10, name = "High"),
    list(anchor = 1, name = "New one")
))


test_that("modifyCats works like modifyList", {
    # modifyCats takes two AbstractCategories objects, and adds elements from the second to
    # the first, replacing any that have the same name in both.
    new_insrts <- modifyCats(insrts, insrts2)
    expect_is(new_insrts, "AbstractCategories")
    expect_is(new_insrts, "Insertions")
    expect_equivalent(
        new_insrts,
        AbstractCategories(data = list(
            list(
                anchor = 6, name = "Low",
                `function` = "subtotal",
                args = c(1, 2), id = 1
            ),
            list(anchor = 10, name = "High", id = 1),
            list(anchor = 1, name = "New one", id = 2)
        ))
    )
})

test_that("abstract category is.* functions", {
    expect_true(is.AbstractCategories(insrts))
    expect_true(is.AbstractCategory(insrts[[1]]))
})

test_that("abstract category [ and [[ getters", {
    expect_equal(insrts["Low"], insrts[1])
    expect_error(insrts["not here"], "subscript out of bounds: not here")
    expect_equal(insrts[["Low"]], insrts[[1]])
    expect_error(insrts[["not here"]], "subscript out of bounds: not here")
})

test_that("abstract category [ s etter", {
    new_insrt <- Insertion(data = list(anchor = 0, name = "here now", id = 1))
    insrts["here now"] <- Insertions(new_insrt)
    expect_equal(insrts[["here now"]], new_insrt)

    old_insrt <- Insertion(data = list(
        anchor = 60, name = "Low",
        `function` = "subtotal", args = c(10, 20),
        id = 5
    ))
    insrts["Low"] <- Insertions(old_insrt)
    expect_equal(insrts[["Low"]], old_insrt)
})

test_that("abstract category [[ setter", {
    new_insrt <- Insertion(data = list(anchor = 0, name = "here now"))
    insrts[["here now"]] <- new_insrt
    expect_equal(insrts[["here now"]], new_insrt)

    old_insrt <- Insertion(data = list(
        anchor = 60, name = "Low",
        `function` = "subtotal", args = c(10, 20)
    ))
    insrts[["Low"]] <- old_insrt
    expect_equal(insrts[["Low"]], old_insrt)
})