library(testthat)

expect_identical(
  object = OverrideDefaultValues(c(1, 2, 3, 4, 5), c(NA, NA, 8, NA, NA)),
  expected = c(1, 2, 8, 4, 5)
)

expect_error(
  OverrideDefaultValues(c(1, 2, 3, 4, 5), c(NA, NA, 8, NA))
)
expect_error(
  OverrideDefaultValues(c(1, 2, 3, 4, 5), c(NA, NA, 8, NA, NA, 9))
)