init

tests/testthat/test-symbolizers.R

@@ -0,0 +1,56 @@
+test_that("pmPolygonSymbolizer creates correct structure", {
+  sym <- pmPolygonSymbolizer(fill = "blue")
+  expect_equal(sym$type, "polygon")
+  expect_equal(sym$options$fill, "blue")
+})
+
+test_that("pmPolygonSymbolizer handles optional parameters", {
+  sym <- pmPolygonSymbolizer(fill = "red", stroke = "black", width = 2, opacity = 0.5)
+  expect_equal(sym$options$fill, "red")
+  expect_equal(sym$options$stroke, "black")
+  expect_equal(sym$options$width, 2)
+  expect_equal(sym$options$opacity, 0.5)
+})
+
+test_that("pmLineSymbolizer creates correct structure", {
+  sym <- pmLineSymbolizer(color = "gray", width = 3)
+  expect_equal(sym$type, "line")
+  expect_equal(sym$options$color, "gray")
+  expect_equal(sym$options$width, 3)
+})
+
+test_that("pmLineSymbolizer handles dash patterns", {
+  sym <- pmLineSymbolizer(color = "black", dash = c(4, 2))
+  expect_equal(sym$options$dash, c(4, 2))
+})
+
+test_that("pmCircleSymbolizer creates correct structure", {
+  sym <- pmCircleSymbolizer(radius = 8, fill = "red")
+  expect_equal(sym$type, "circle")
+  expect_equal(sym$options$radius, 8)
+  expect_equal(sym$options$fill, "red")
+})
+
+test_that("pmCenteredTextSymbolizer creates correct structure", {
+  sym <- pmCenteredTextSymbolizer(font = "14px Arial", fill = "black")
+  expect_equal(sym$type, "centeredText")
+  expect_equal(sym$options$font, "14px Arial")
+  expect_equal(sym$options$fill, "black")
+})
+
+test_that("pmCenteredTextSymbolizer handles lineHeight", {
+  sym <- pmCenteredTextSymbolizer(font = "12px sans-serif", lineHeight = 1.5)
+  expect_equal(sym$options$lineHeight, 1.5)
+})
+
+test_that("pmLineLabelSymbolizer creates correct structure", {
+  sym <- pmLineLabelSymbolizer(font = "11px Arial", fill = "#333")
+  expect_equal(sym$type, "lineLabel")
+  expect_equal(sym$options$font, "11px Arial")
+})
+
+test_that("pmShieldSymbolizer creates correct structure", {
+  sym <- pmShieldSymbolizer(font = "10px Arial", background = "yellow")
+  expect_equal(sym$type, "shield")
+  expect_equal(sym$options$background, "yellow")
+})