tests/testthat/test-take_bets.R

In dfcorbin/pokersim:

test_that("display unchanged", {
  set.seed(101)
  gen_action <- function(){
    return("fold")
  }
  players <- preflop_deal(3,rep(200,3))[-4]
  skip <- rep(FALSE,3)
  output <- capture_output(take_bets(players,1,0,skip,human=FALSE))
  expect_equal_to_reference(output,file=display_reference)
})