tests/testthat/test-render_piece.R

In trevorld/piecepack: Board Game Graphics

df_board <- data.frame(piece_side = "board_face", suit = 3, rank = 8,
                       x = 4.5, y = 4.5, stringsAsFactors = FALSE)
df_w <- data.frame(piece_side = "bit_face", suit = 6, rank = 1,
                   x = rep(1:8, 2), y = rep(1:2, each=8),
                   stringsAsFactors = FALSE)
df_b <- data.frame(piece_side = "bit_face", suit = 1, rank = 1,
                   x = rep(1:8, 2), y = rep(7:8, each=8),
                   stringsAsFactors = FALSE)
df <- rbind(df_board, df_w, df_b)
df$cfg <- "checkers1"

test_that("render_piece() works", {
    skip_on_ci()
    skip_if_not_installed("vdiffr")
    library("vdiffr")

    envir <- game_systems("sans")
    expect_doppelganger("render_piece", function() render_piece(df, envir = envir, new_device = FALSE))
    expect_doppelganger("render_piece_cartesian", function()
        render_piece(df, envir = envir, annotate = TRUE, new_device = FALSE))
    expect_doppelganger("render_piece_algebraic", function()
        render_piece(df, envir = envir,
                     op_scale = 0.5, annotate = "algebraic",
                     trans = op_transform, new_device = FALSE))

    skip_if_not_installed("rayvertex")
    library("rayvertex")
    envir3d <- game_systems("sans3d")
    f <- tempfile(fileext = ".jpg")
    render_piece(df, file = f, .f = piece_mesh, envir = envir3d, new_device = FALSE,
                 op_scale = 0.5, trans = op_transform)
    expect_true(file.exists(f))
    unlink(f)

    skip_if_not_installed("rayrender")
    library("rayrender")
    envir3d <- game_systems("sans3d")
    f <- tempfile(fileext = ".jpg")
    render_piece(df, file = f, .f = piece, envir = envir3d, new_device = FALSE,
                 op_scale = 0.5, trans = op_transform,
                 samples = 5, clamp_value = 1, interactive = FALSE)
    expect_true(file.exists(f))
    unlink(f)

    skip_if_not_installed("rgl")
    library("rgl")
    open3d()
    view3d(0, -30)
    f <- tempfile(fileext = ".tiff")
    render_piece(df, file = f, .f = piece3d, envir = envir3d, new_device = FALSE,
                 op_scale = 0.5, trans = op_transform, scale = 0.98)
    expect_true(file.exists(f))
    unlink(f)
    close3d()
})