tests/testthat/test-find_maximum_value.R

In vvauditor: Creates Assertion Tests

test_that("returns the maximum numeric value for a numeric vector", {
  numeric_vector <- c(3, 1, 4, 1, 5, 9)
  expect_equal(find_maximum_value(numeric_vector), 9)
})

test_that("returns NA for a vector with only non-numeric values", {
  non_numeric_vector <- c("one", "two", "three")
  expect_equal(find_maximum_value(non_numeric_vector), NA)
})