tests/testthat/test-preflop_deal.R

In dfcorbin/pokersim2:

test_that("preflop_deal gives correct output format", {
  players <- preflop_deal(3,rep(200,3))
  for (i in 1:3){
    expect_s4_class(players[[i]],"player")
  }
  expect_s4_class(players[[4]],"deck")
  expect_equal(length(players), 4)
})