tests/testthat/test-check-coin.R

In gastonstat/cointoss: Coin Tossing

context("Check coin arguments")

test_that("check_sides with ok vectors", {
  
  expect_true(check_sides(c('heads', 'tails')))
  expect_true(check_sides(c(1, 2)))
})


test_that("check_sides fails with invalid lengths", {
  
  expect_error(check_sides(c('one', 'two', 'three')))
  expect_error(check_sides(c('one')))
  expect_error(check_sides(1:5))
  expect_error(check_sides(1))
})


test_that("check_sides fails with invalid types", {
  
  expect_error(check_sides(c('one', 'two', 'three')))
  expect_error(check_sides(c('one')), 
               "\n'sides' must be a vector of length 2")
})


test_that("check_sides fails with duplications", {
  
  expect_error(check_sides(c('one', 'one')))
  expect_error(check_sides(c('one', 'one')), 
               "\n'sides' has duplicated elements")
})


test_that("check_prob works with ok vectors", {
  
  expect_true(check_prob(c(0.5, 0.5)))
  expect_true(check_prob(c(0, 1)))
  expect_true(check_prob(c(1, 0)))
  expect_true(check_prob(c(0.1, 0.9)))
  expect_true(check_prob(c(1/3, 2/3)))
  expect_true(check_prob(c(1/6, 5/6)))
})


test_that("check_prob fails with invalid lengths", {
  
  expect_error(check_prob(1:5))
  expect_error(check_prob(1))
})


test_that("check_prob fails with invalid numbers", {
  
  expect_error(check_prob(0.333, 0.666))
  expect_error(check_prob(-0.5, 0.5))
  expect_error(check_prob(0.5, -0.5))
  expect_error(check_prob(0.5, NA))
})