tests/testthat/test-display.R

In rcartocolor: 'CARTOColors' Palettes

context("display_pal")
test_that("palette display", {

        expect_silent(display_carto_all(n = NULL))
        expect_silent(display_carto_all(type = "diverging"))
        expect_silent(display_carto_all(type = c("diverging", "aggregation")))

        # bad inputs
        expect_error(display_carto_pal("New name"))
        expect_error(display_carto_pal(6, "New name"))
        expect_error(display_carto_pal(1))

        # warnings
        expect_warning(display_carto_pal(2, name = "PurpOr"))
        # expect_warning(display_carto_pal(12, name = "Burg"))

})

context("display_pal")
test_that("visual elements are correct", {

        skip_on_cran()

        A3 = function() display_carto_pal(7, "Burg")
        B3 = function() display_carto_pal(2, "ag_GrnYl")
        C3 = function() display_carto_pal(12, "Bold")
        D3 = function() display_carto_pal(7, "Tropic")

        vdiffr::expect_doppelganger("a3", A3)
        vdiffr::expect_doppelganger("b3", B3)
        vdiffr::expect_doppelganger("c3", C3)
        vdiffr::expect_doppelganger("d3", D3)

})

context("display_carto_all")
test_that("palette display", {

        # bad inputs
        expect_error(display_carto_all(type = "Qual"))

        # warnings
        expect_warning(display_carto_all(n = 77))
        expect_warning(display_carto_all(n = 1))

})

context("display_carto_all")
test_that("visual elements are correct", {

        skip_on_cran()

        A4 = function() display_carto_all()
        B4 = function() display_carto_all(type = "quantitative")
        C4 = function() display_carto_all(type = c("diverging", "qualitative", "aggregation"))
        D4 = function() display_carto_all(3, type = "quantitative")
        E4 = function() display_carto_all(7, type = "quantitative")

        vdiffr::expect_doppelganger("a4", A4)
        vdiffr::expect_doppelganger("b4", B4)
        vdiffr::expect_doppelganger("c4", C4)
        vdiffr::expect_doppelganger("d4", D4)
        vdiffr::expect_doppelganger("E4", E4)
})