tests/testthat/test_rflip_rolldie.R

In mobilizingcs/mobilizr: Functions for the Mobilize Introduction to Data Science course.

library(mobilizr)
context("coin and dice simulators")

set.seed(123)

# Test roll_die
test_that("roll_die works", {
  expect_equal(roll_die(die = "A", times = 5), c(2, 5, 3, 6, 6))
  expect_equal(roll_die(die = "B", times = 5), c(3, 4, 1, 5, 4))
  expect_error(roll_die(die = "C", times = 5))
  expect_error(roll_die(die = "A",  times = 501))
})

# Test rflip
test_that("rflip works", {
  expect_error(rflips(501))
})