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")
})