tests/testthat/test-crop_marks.R

In piecepackr: Board Game Graphics

test_that("crop_marks work as expected", {
	skip_if_not_installed("vdiffr")
	library("vdiffr")

	cfg <- pp_cfg(list(mat_color = "pink", mat_width = 0.05, border_color = NA))
	df <- data.frame(
		piece_side = "tile_face",
		suit = 2,
		rank = 2,
		x = 2,
		y = 2,
		angle = 0,
		stringsAsFactors = FALSE
	)
	expect_doppelganger("crop-mark-outside", {
		pmap_piece(df, grid.cropmark, cfg = cfg, default.units = "in")
		pmap_piece(df, grid.piece, cfg = cfg, default.units = "in", bleed = TRUE)
	})

	df <- data.frame(
		piece_side = "coin_back",
		suit = 2,
		rank = 2,
		x = 2,
		y = 2,
		angle = 0,
		stringsAsFactors = FALSE
	)
	expect_doppelganger("crop-mark-outside-x2", {
		pmap_piece(
			df,
			grid.cropmark,
			cfg = cfg,
			default.units = "in",
			bleed = TRUE,
			scale = 2,
			cm_select = "1357"
		)
		pmap_piece(df, grid.piece, cfg = cfg, default.units = "in", bleed = TRUE, scale = 2)
	})
})