tests/testthat/test-as_enum.r

In ElianHugh/enumr: Static Enumerations

test_that("coercion to enums is functional", {
    # List coercion
    y <- list(a = 1, b = 2, c = 3)
    expect_identical(
        as.list(as_enum(y)),
        as.list(enum(a = 1, b = 2, c = 3))
    )

    # Env coercion
    x <- rlang::env(
        a = 5,
        b = mtcars,
        c = "str"
    )
    expect_identical(
        as.list(as_enum(x)),
        as.list(enum(a = 5, b = mtcars, c = "str"))
    )

    # Factor coercion
    z <- factor(c("blue", "red", "green"))
    expect_identical(
        as.list(as_enum(z)),
        as.list(enum(blue = 1, green = 2, red = 3))
    )

    # Data.frame coercion
    expect_identical(
        as_enum(mtcars)$cyl,
        mtcars$cyl
    )

    expect_identical(
        as_enum(mtcars, use_cols = TRUE)$cyl,
        "cyl"
    )

    expect_identical(
        as_enum(mtcars, use_rows = TRUE)$`Mazda RX4`,
        "Mazda RX4"
    )

    expect_error(
        as_enum(mtcars, use_rows = TRUE, use_cols = TRUE),
        class = "enumr-argument-error"
    )

    # NULL coercion
    expect_identical(
        as.list(as_enum()),
        list()
    )

    # Abort on others
    expect_error(
        as_enum(5),
        class = "enumr-coercion-error"
    )

})