tests/testthat/test-path.R

In ragg: Graphic Devices Based on AGG

render_path <- function(fill, colour, linewidth, linetype, linejoin) {
  dev <- agg_capture()
  grid::grid.path(
    x = c(0.5, 0.9, 0.5, 0.1, 0.4, 0.4, 0.6, 0.6),
    y = c(0.9, 0.5, 0.1, 0.5, 0.4, 0.6, 0.6, 0.4),
    id.lengths = c(4, 4),
    gp = grid::gpar(
      fill = fill,
      col = colour,
      lwd = linewidth,
      lty = linetype,
      linejoin = linejoin
    ),
    rule = 'evenodd'
  )
  out <- dev()
  dev.off()
  out
}

test_that("path stroke works", {
  path <- table(render_path(NA, 'black', 14, 'solid', 'round'))
  expect_equal(path[['white']], 212800)
  expect_equal(path[['black']], 13776)

  path <- table(render_path(NA, 'black', 14, 'dotdash', 'round'))
  expect_equal(path[['black']], 7896)

  path <- table(render_path(NA, 'black', 14, 'solid', 'mitre'))
  expect_equal(path[['black']], 13824)

  path <- table(render_path(NA, 'blue', 14, 'solid', 'round'))
  expect_equal(path[['blue']], 13776)

  path <- table(render_path(NA, '#DE2D7633', 14, 'solid', 'round'))
  expect_equal(path[['#F8D5E4']], 13776)
})

test_that("path fill works", {
  path <- table(render_path('black', NA, 4, 'solid', 'round'))
  expect_equal(path[['white']], 165504)
  expect_equal(path[['black']], 64128)

  path <- table(render_path('blue', NA, 4, 'solid', 'round'))
  expect_equal(path[['blue']], 64128)

  path <- table(render_path('#DE2D7633', NA, 4, 'solid', 'round'))
  expect_equal(path[['#F8D5E4']], 64128)
})