tests/testthat/test-myHelpers.R

In vanNijnatten/Learn-Statistics: Dummy package that shows how statistical functions are made

context("Helpers")


# my.is.even(num)
test_that("my.is.even", {
  expect_true(my.is.even(2))
  expect_equal(my.is.even(c(2, 4, 6, 8, 10)), c(TRUE, TRUE, TRUE, TRUE, TRUE))
  expect_false(my.is.even(1))
  expect_equal(my.is.even(c(1, 3, 5, 7, 9)), c(FALSE, FALSE, FALSE, FALSE, FALSE))
})

# my.is.odd(num)
test_that("my.is.odd", {
  expect_true(my.is.odd(1))
  expect_equal(my.is.odd(c(1, 3, 5, 7, 9)), c(TRUE, TRUE, TRUE, TRUE, TRUE))
  expect_false(my.is.odd(2))
  expect_equal(my.is.odd(c(2, 4, 6, 8, 10)), c(FALSE, FALSE, FALSE, FALSE, FALSE))
})

# my.min(src.vector)
test_that("my.min", {
  expect_equal(my.min(1:50), 1)
})

# my.max(src.vector)
test_that("my.max", {
  expect_equal(my.max(1:50), 50)
})

# my.product(src.vector)
test_that("my.product", {
  expect_equal(my.product(1:5), 1*2*3*4*5)
})