tests/testthat/test-get_fire_danger_levels.R

context("get_fire_danger_levels")

test_that("get_fire_danger_levels works", {

  # Check whether the result is correct
  x <- get_fire_danger_levels(b)
  expect_equal(x, c(3, 9, 23, 49, 98))

})
ecmwf/caliver documentation built on March 25, 2022, 6:59 a.m.