tests/testthat/test-gr_get_params.R

test_that("Params are correct", {
  
  params = gr_get_params(reg = 'center')
  
  expect_equal(length(params), 39)
  expect_type(params, 'list')
  expect_type(params$filter, 'character')
  
  params$filter = NULL
  for (p in params)
    expect_type(p, 'double')
  
})
tsamsonov/grwat documentation built on Feb. 10, 2024, 5:55 p.m.