tests/testthat/test_check_non_null.R

In NorwegianVeterinaryInstitute/NVIcheckmate: Extension of checkmate with argument checking adapted for NVIverse

library(testthat)
library(checkmate)
library(NVIcheckmate)

test_that("No error for check_non_null", {
  fruit <- "Apple"
  vegetable <- NULL
  expect_identical(
    check_non_null(x = list(fruit, vegetable)),
    TRUE)

  fruit <- "Apple"
  vegetable <- NA
  expect_identical(
    check_non_null(x = list(fruit, vegetable)),
    TRUE)

  fruit <- NA
  vegetable <- NULL
  cereal = "barley"
  expect_identical(
    check_non_null(x = list(fruit, vegetable, cereal)),
    TRUE)

})

test_that("Make error for check_non_null", {
  fruit <- NULL
  vegetable <- NULL
  expect_error(
    assert_non_null(x = list(fruit, vegetable)),
    regexp = "At least one of the arguments")

  # fruit <- NA
  # vegetable <- NULL
  # expect_error(
  #   assert_non_null(x = list(fruit, vegetable)),
  #   regexp = "At least one of the arguments" )
  #
  # fruit <- NA
  # vegetable <- NA
  # cereal = NA
  # expect_error(
  #   assert_non_null(x = list(fruit, vegetable, cereal)),
  #   regexp = "At least one of the arguments" )
  #
  # fruit <- NULL
  # vegetable <- NA
  # cereal = NULL
  # expect_error(
  #   assert_non_null(x = list(fruit, vegetable, cereal)),
  #   regexp = "At least one of the arguments" )

})