tests/testthat/test-binomial_coefficient.R

In wiep/introToR17: intro to r 17 pkg

context("binomial_coefficient")

test_that("valid input", {
  expect_equal(1, binomial_coefficient(0, 0))
  expect_equal(2, binomial_coefficient(2, 1))
  expect_equal(3003, binomial_coefficient(15, 5))
  expect_equal(1, binomial_coefficient(15, 0))
  expect_equal(1, binomial_coefficient(15, 15))
  expect_equal(c(1, 3, 6), binomial_coefficient(2:4, 2))
  expect_equal(c(1, 3, 3, 1), binomial_coefficient(3, 0:3))
  expect_equal(c(1, 3, 15, 84), binomial_coefficient(3 * 0:3, 0:3))
})

test_that("invalid input", {
  expect_error(binomial_coefficient(0, -1))
  expect_error(binomial_coefficient(-1, 0))
  expect_error(binomial_coefficient(2, 1.1))
  expect_error(binomial_coefficient(1.1, 1))
  expect_error(binomial_coefficient(1, 2))
})