tests/testthat/test-board.R

In Achowdh1/percolate: What the Package Does (One Line, Title Case)

test_that("multiplication works", {
  expect_equal(2 * 2, 4)
})


m = generate_board_mat()

expect_equivalent(m, unclass(board(m)))
m = generate_board_mat(n=6, p = 0.75)

expect_equivalent(m, unclass(board(m)))
expect_equivalent(0.75, attr(board(m), "p"))
expect_equivalent(6, attr(board(m), "n"))

m = generate_board_mat(n=16, p = 0.15)

expect_equivalent(m, unclass(board(m)))
expect_error(board(n=-5))
expect_error(board(n=c(1,2)))
expect_error(board(n="asdf"))
expect_error(board(n=-5))
m = generate_board_mat(n=20, p = 0.7)

expect_equivalent(m, unclass(board(m)))
expect_equivalent(0.7, attr(board(m), "p"))
expect_equivalent(20, attr(board(m), "n"))