tests/testthat/test-is_odd.R

In vbfelix/relper: Miscellaneous Functions for Data Preparation, Cleaning, and Visualization

test_that("Expected equal", {

  expect_equal(
    object = is_odd(1:3),
    expected = c(TRUE, FALSE, TRUE)
  )

})

test_that("Expect TRUE", {

  expect_true(object = is_odd(1))

  expect_true(object = is_odd(-1))

  expect_true(object = is_odd(1.0))

  expect_true(object = is_odd(1.1))

})

test_that("Expect FALSE", {

  expect_false(object = is_odd(2))

  expect_false(object = is_odd(-2))

  expect_false(object = is_odd(2.0))

  expect_false(object = is_odd(2.2))

})

test_that("Warning: value coerced to NA", {

  expect_warning(object = is_even(x = 0))

})

test_that("Wrong type", {

  expect_error(object = is_odd(x = "a"))

  expect_error(object = is_odd(x = TRUE))

})