add test

teunbrand · teunbrand · commit 1e4e7d0dbe93 · 2025-04-07T12:48:24.000+02:00
diff --git a/tests/testthat/_snaps/annotate/annotation-borders-utah.svg b/tests/testthat/_snaps/annotate/annotation-borders-utah.svg
@@ -0,0 +1,60 @@
+<?xml version='1.0' encoding='UTF-8' ?>
+<svg xmlns='http://www.w3.org/2000/svg' xmlns:xlink='http://www.w3.org/1999/xlink' class='svglite' data-engine-version='2.0' width='720.00pt' height='576.00pt' viewBox='0 0 720.00 576.00'>
+<defs>
+  <style type='text/css'><![CDATA[
+    .svglite line, .svglite polyline, .svglite polygon, .svglite path, .svglite rect, .svglite circle {
+      fill: none;
+      stroke: #000000;
+      stroke-linecap: round;
+      stroke-linejoin: round;
+      stroke-miterlimit: 10.00;
+    }
+  ]]></style>
+</defs>
+<rect width='100%' height='100%' style='stroke: none; fill: #FFFFFF;'/>
+<defs>
+  <clipPath id='cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA='>
+    <rect x='0.00' y='0.00' width='720.00' height='576.00' />
+  </clipPath>
+</defs>
+<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
+<rect x='0.00' y='0.00' width='720.00' height='576.00' style='stroke-width: 1.07; stroke: #FFFFFF; fill: #FFFFFF;' />
+</g>
+<defs>
+  <clipPath id='cpMjAuMjB8NzE0LjUyfDIyLjc4fDU1Ny43MQ=='>
+    <rect x='20.20' y='22.78' width='694.32' height='534.92' />
+  </clipPath>
+</defs>
+<g clip-path='url(#cpMjAuMjB8NzE0LjUyfDIyLjc4fDU1Ny43MQ==)'>
+<rect x='20.20' y='22.78' width='694.32' height='534.92' style='stroke-width: 1.07; stroke: none; fill: #FFFFFF;' />
+<polygon points='51.76,47.10 181.76,47.65 287.92,47.65 295.86,47.10 370.25,47.10 373.86,47.65 429.47,47.65 428.75,88.27 428.75,122.21 428.75,145.02 555.13,144.47 560.91,144.47 681.52,145.02 680.79,177.85 680.79,220.14 680.79,275.22 680.07,290.24 680.79,303.60 680.79,386.50 681.52,421.00 682.24,448.82 681.52,471.63 682.96,533.39 669.24,533.39 636.02,533.39 597.74,533.39 570.30,533.39 560.91,532.83 550.80,532.83 523.36,532.83 493.02,533.39 475.69,533.39 466.30,533.39 455.47,532.83 420.08,533.39 404.19,533.39 395.53,532.83 383.97,532.83 349.30,532.83 316.08,532.83 283.59,533.39 257.59,533.39 241.70,533.39 217.87,532.83 195.48,533.39 183.20,532.83 148.53,532.83 116.03,532.83 79.93,533.39 52.48,533.39 51.76,473.86 52.48,422.11 51.76,378.71 51.76,370.92 52.48,286.35 53.20,251.30 52.48,229.04 52.48,143.91 51.76,47.10 ' style='stroke-width: 1.07; stroke: #7F7F7F; stroke-linecap: butt; fill: none;' />
+<rect x='20.20' y='22.78' width='694.32' height='534.92' style='stroke-width: 1.07; stroke: #333333;' />
+</g>
+<g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
+<text x='15.27' y='536.02' text-anchor='end' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='9.79px' lengthAdjust='spacingAndGlyphs'>37</text>
+<text x='15.27' y='438.91' text-anchor='end' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='9.79px' lengthAdjust='spacingAndGlyphs'>38</text>
+<text x='15.27' y='341.80' text-anchor='end' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='9.79px' lengthAdjust='spacingAndGlyphs'>39</text>
+<text x='15.27' y='244.69' text-anchor='end' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='9.79px' lengthAdjust='spacingAndGlyphs'>40</text>
+<text x='15.27' y='147.58' text-anchor='end' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='9.79px' lengthAdjust='spacingAndGlyphs'>41</text>
+<text x='15.27' y='50.47' text-anchor='end' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='9.79px' lengthAdjust='spacingAndGlyphs'>42</text>
+<polyline points='17.46,532.99 20.20,532.99 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
+<polyline points='17.46,435.88 20.20,435.88 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
+<polyline points='17.46,338.77 20.20,338.77 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
+<polyline points='17.46,241.66 20.20,241.66 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
+<polyline points='17.46,144.55 20.20,144.55 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
+<polyline points='17.46,47.44 20.20,47.44 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
+<polyline points='57.72,560.45 57.72,557.71 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
+<polyline points='183.76,560.45 183.76,557.71 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
+<polyline points='309.81,560.45 309.81,557.71 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
+<polyline points='435.86,560.45 435.86,557.71 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
+<polyline points='561.90,560.45 561.90,557.71 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
+<polyline points='687.95,560.45 687.95,557.71 ' style='stroke-width: 1.07; stroke: #333333; stroke-linecap: butt;' />
+<text x='57.72' y='568.69' text-anchor='middle' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='17.61px' lengthAdjust='spacingAndGlyphs'>-114</text>
+<text x='183.76' y='568.69' text-anchor='middle' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='17.61px' lengthAdjust='spacingAndGlyphs'>-113</text>
+<text x='309.81' y='568.69' text-anchor='middle' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='17.61px' lengthAdjust='spacingAndGlyphs'>-112</text>
+<text x='435.86' y='568.69' text-anchor='middle' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='17.61px' lengthAdjust='spacingAndGlyphs'>-111</text>
+<text x='561.90' y='568.69' text-anchor='middle' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='17.61px' lengthAdjust='spacingAndGlyphs'>-110</text>
+<text x='687.95' y='568.69' text-anchor='middle' style='font-size: 8.80px; fill: #4D4D4D; font-family: sans;' textLength='17.61px' lengthAdjust='spacingAndGlyphs'>-109</text>
+<text x='20.20' y='14.56' style='font-size: 13.20px; font-family: sans;' textLength='143.12px' lengthAdjust='spacingAndGlyphs'>annotation_borders utah</text>
+</g>
+</svg>
diff --git a/tests/testthat/test-annotate.R b/tests/testthat/test-annotate.R
@@ -115,3 +115,9 @@ test_that("annotation_custom() and annotation_raster() adhere to scale transform
   expect_equal(as.numeric(ann$height), 8/10)
 
 })
+
+test_that("annotation_borders() can create a map", {
+  skip_if_not_installed("maps")
+  lifecycle::expect_deprecated(utah <- borders("state", "utah"))
+  expect_doppelganger("annotation_borders utah", ggplot() + utah)
+})
