tests/testthat/test_icehouse.R

In piecepackr/piecenikr: Looney Pyramid Graphics

op <- options(piecepackr.at.inform = FALSE)
on.exit(options(op))
test_that("Looney Pyramids works as expected", {
    skip_on_ci()
    skip_on_cran()
    skip_if_not_installed("vdiffr")

    library("piecepackr")
    library("tibble")
    library("vdiffr")

    # icehouse pyramids
    dft <- tibble(piece_side = "tile_back", x = 1.5, y = 1.5, suit = NA, rank = NA, angle = NA)
    dfp <- tibble(piece_side = c("pyramid_face", "pyramid_left", "pyramid_right", "pyramid_back"),
                  x = c(1, 2, 2, 1), y = c(2, 2, 1, 1), suit = 1:4, rank = c(1:3, 3), angle = seq(90, 360, 90))
    df1 <- rbind(dft, dfp)

    dft <- tibble(piece_side = "tile_back", x = 3.5, y = 3.5, suit = NA, rank = NA, angle = NA)
    dfp <- tibble(piece_side = "pyramid_top", x = 2 + c(1, 2, 2, 1, 1, 2, 2, 2),
                  y = 2 + c(2, 2, 1, 1, 1, 1, 1, 1),
                  suit = c(1:6, 2, 3), rank = c(1:3, 3, 1, 2, 1, 1), angle = seq(0, 630, 90))
    df2 <- rbind(dft, dfp)
    df <- rbind(df1, df2)

    cfg <- looney_pyramids()$icehouse_pieces
    expect_doppelganger("looney_pyramids",
        function() pmap_piece(df, cfg = cfg, default.units = "in")
    )

    cfg <- looney_pyramids(border = FALSE)$icehouse_pieces
    expect_doppelganger("looney_pyramids_no_border",
        function() pmap_piece(df, cfg = cfg, default.units = "in")
    )
})