test_that("rectangular boards works as expected", {
add_coins <- function(df) {
dfc <- tibble(piece_side = "coin_face", x=1:6, y = 1:6, angle = 0, suit = 1, rank = 1:6)
rbind(df, dfc)
}
cpiece <- function(df) cat_piece(add_coins(df), color = FALSE)
expect_equal(min_line_tiles(6), 2)
expect_equal(min_line_tiles(7), 3)
expect_equal(min_line_tiles(8), 3)
expect_equal(n_lines(1, 0), 3)
expect_equal(n_lines(2, 1), 6)
expect_equal(n_lines(2, 0), 5)
expect_equal(n_rivers(6, 2), 1)
expect_equal(n_rivers(5, 2), 0)
expect_equal(n_tiles(6, 1), 2)
expect_equal(n_tiles(5, 0), 2)
expect_equal(n_tiles(7, 0), 3)
expect_equal(n_tiles(10, 1), 4)
expect_equal(line_score(c(2, 2, 3)), 2)
expect_equal(line_score(c(2, 3, 3)), 3)
expect_equal(line_score(c(3, 3, 2, 2, 2)), 9)
expect_equal(line_score(c(2, 3, 2, 3, 2)), 0)
expect_equal(line_score(c(2, 2, 2, 3)), 6)
expect_error(df_rect_board_tiles(2, 3), "Don't know how to form a 3x2 board with 24 tiles")
expect_error(grid.board_rect_cells(), "use the board pieces")
expect_error(grid.board_rect_points(), "use the board pieces")
expect_error(grid.board_rect_tiles(), "use piecepackr::pmap_piece")
skip_on_os("windows")
expect_snapshot({
# 8x8
df <- df_rect_board_tiles(nr = 8, nc = 8)
cpiece(df)
})
expect_snapshot({
# 10x10
df <- df_rect_board_tiles(nr = 10, nc = 10)
cpiece(df)
})
expect_snapshot({
# 4x8
df <- df_rect_board_tiles(nr = 8, nc = 4)
cpiece(df)
})
expect_snapshot({
# 2x6
df <- df_rect_board_tiles(nr = 6, nc = 2)
cpiece(df)
})
expect_snapshot({
# 3x5
df <- df_rect_board_tiles(nr = 5, nc = 3)
cpiece(df)
})
expect_snapshot({
# 7x5
df <- df_rect_board_tiles(nr = 5, nc = 7)
cpiece(df)
})
expect_snapshot({
# 6x5
df <- df_rect_board_tiles(nr = 5, nc = 6)
cpiece(df)
})
expect_snapshot({
# 8x8_12t
df <- df_rect_board_tiles(nr = 8, nc = 8, max_tiles = 12)
cpiece(df)
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.