tests/testthat/test-gr_check_params.R

In tsamsonov/grwat: River Hydrograph Separation and Analysis

test_that("Default parameters are correct", {
  params = gr_get_params()
  expect_message(gr_check_params(params))
})

test_that("Unknown parameters are detected", {
  params = gr_get_params()
  params$new = -2
  expect_error(gr_check_params(params))
})

test_that("Missing parameters are detected", {
  params = gr_get_params()
  params$grad1 = NULL
  expect_error(gr_check_params(params))
})

test_that("Wrong parameter types are detected", {
  params = gr_get_params()
  params$filter = 2
  expect_error(gr_check_params(params))
})

test_that("Missing df for multilist is detected", {
  params = gr_get_params()
  expect_error(gr_check_params(list(params, params)))
})

test_that("Wrong number of years in multilist param is detected", {
  params = gr_get_params()
  expect_error(gr_check_params(list(params, params), data(spas)))
})