34 lines
956 B
R
34 lines
956 B
R
test_that("pmColors creates correct structure", {
|
|
colors <- pmColors(earth = "#d3d3d3", water = "#1a3a5c")
|
|
|
|
expect_equal(colors$earth, "#d3d3d3")
|
|
expect_equal(colors$water, "#1a3a5c")
|
|
})
|
|
|
|
test_that("pmColors expands park to park_a and park_b", {
|
|
colors <- pmColors(park = "#00ff00")
|
|
|
|
expect_equal(colors$park_a, "#00ff00")
|
|
expect_equal(colors$park_b, "#00ff00")
|
|
})
|
|
|
|
test_that("pmColors expands wood to wood_a and wood_b", {
|
|
colors <- pmColors(wood = "#228b22")
|
|
|
|
expect_equal(colors$wood_a, "#228b22")
|
|
expect_equal(colors$wood_b, "#228b22")
|
|
})
|
|
|
|
test_that("pmColors expands minor to minor_a and minor_b", {
|
|
colors <- pmColors(minor = "#ffffff")
|
|
|
|
expect_equal(colors$minor_a, "#ffffff")
|
|
expect_equal(colors$minor_b, "#ffffff")
|
|
})
|
|
|
|
test_that("pmColors passes through additional properties", {
|
|
colors <- pmColors(earth = "#ccc", custom_prop = "#abc")
|
|
|
|
expect_equal(colors$earth, "#ccc")
|
|
expect_equal(colors$custom_prop, "#abc")
|
|
})
|