library(testthat)
library(gogamer)
context("Go game constructor")
test_that("gogame constructor", {
# handicap property does not match the number of setup moves
# Decided not to warn this because some file may be for
# problems where all stones are located as setups
#properties <- list(whitename = "", whiterank = "",
# blackname = "", blackrank = "",
# boardsize = 19, komi = 0, handicap = 3,
# date = NA_character_, event = "",
# result = "", rule = NA_character_)
#moves <- data.frame(color = c(1L, 1L, 2L),
# x = c(16L, 4L, 10L), y = c(4L, 16L, 10L),
# ismove = c(FALSE, FALSE, TRUE))
#expect_warning(gogame(properties, moves))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.