tests/testthat/test-line.R

In ragg: Graphic Devices Based on AGG

render_line <- function(colour, linewidth, linetype) {
  dev <- agg_capture()
  grid::grid.segments(x0 = 0.1, y0 = 0.1, x1 = 0.9, y1 = 0.9, 
                  gp = grid::gpar(col = colour, lwd = linewidth, 
                                  lty = linetype))
  out <- dev()
  dev.off()
  out
}

test_that("line stroke works", {
  line <- table(render_line('black', 14, 'solid'))
  expect_equal(line[['white']], 223760)
  expect_equal(line[['black']], 5060)
  
  line <- table(render_line('black', 14, 'dotdash'))
  expect_equal(line[['black']], 3062)
  
  line <- table(render_line('blue', 14, 'solid'))
  expect_equal(line[['blue']], 5060)
  
  line <- table(render_line('#DE2D7633', 14, 'solid'))
  expect_equal(line[['#F8D5E4']], 5060)
})