tests/testthat/test_hyet_check.R

In kvantas/erosivity: Rainfall Erosivity Calculation

context("hyet_check related tests")

test_that("hyet_check returns errors", {

  # not a tibble
  hyet <- list(c = "1", b = 2)
  expect_error(hyet_check(hyet))

  # a tibble without date
  hyet <- tibble::tibble(fates = 1:4, prec = 1:4)
  expect_error(hyet_check(hyet))

  # a tibble without prec
  hyet <- tibble::tibble(date = 1:4, xrec = 1:4)
  expect_error(hyet_check(hyet))

  # date are not POSIXct
  hyet <- tibble::tibble(date = 1:4, prec = 1:4)
  expect_error(hyet_check(hyet))

  # prec is not numeric
  hyet <- tibble::tibble(
    date = seq(
      from = as.POSIXct(0, origin = "2018-01-01"), length.out = 4,
      by = "mins"
    ),
    prec = c("a", "b", "c", "d")
  )
  expect_error(hyet_check(hyet))
})

test_that("hyet_check returns NULL", {

  # all ok
  hyet2 <- tibble::tibble(
    date = seq(
      from = as.POSIXct(0, origin = "2018-01-01"), length.out = 4,
      by = "mins"
    ),
    prec = 1:4
  )
  expect_null(hyet_check(hyet2))
})