tests/testthat/test-replace_vec_elem.R

In LWFBrook90R: Simulate Evapotranspiration and Soil Moisture with the SVAT Model LWF-Brook90

test_that("replacement in vectors works", {
  expect_equal(replace_vecelements(1:10, varnms=c("a1", "a3"), vals=0),
               c(0, 2, 0, 4, 5, 6, 7, 8, 9, 10))
  expect_equal(replace_vecelements(1:10, varnms=c("a1", "b3"), vals=0),
               c(0, 2, 0, 4, 5, 6, 7, 8, 9, 10))
  expect_equal(replace_vecelements(1:10, varnms=c("1", "3"), vals=0),
               c(0, 2, 0, 4, 5, 6, 7, 8, 9, 10))
  expect_error(replace_vecelements(1:10, varnms=c("a1", "b"), vals=0))


})