tests/testthat/test-DirectStormRunoff.R

context("DirectStormRunoff")

test_that("DirectStormRunoff generates correct values", {

  SQ <- DirectStormRunoff(P = 30, CN = 80, PQunits = "mm")

  expect_equal(SQ$S, 63.5)
  expect_equal(SQ$Q, 3.704)

})
cvitolo/curvenumber documentation built on April 19, 2022, 3:33 a.m.