tests/testthat/test-c4repl.R

In sellorm/c4game: Provides a simple model of the popular family game Connect 4

library(c4game)

context("c4repl tests")

test_that("that an unnatended game runs properly", {
  expect_true(c4repl(0) %in% 0:2)
})

test_that("incorrect start-up params are checked", {
  expect_identical(c4repl(3), "Error: number of players must be 0, 1 or 2")
  expect_identical(c4repl("test"), "Error: number of players must be 0, 1 or 2")
})