tests/testthat/test_format_id.R

In MVR-GIS/rarr: Risk Analysis Report in R

# Get test data
db_risk <- rarr::db_risk

# Cleanup risk number for sorting
risk <- rarr::format_id(db_risk, "RISK_NO")

test_that("check id values", {
  expect_equal(dplyr::filter(risk, risk_no == "TR-011")$risk_no,
               "TR-011")
  expect_equal(dplyr::filter(risk, risk_no == "TR-006h")$risk_no,
               "TR-006h")
  expect_equal(dplyr::filter(risk, risk_no == "TR-018")$risk_no,
               "TR-018")
})

test_that("check errors", {
  expect_error(id_link("1", "RISK_NO"))
  expect_error(id_link(risk, "risk_number"))
})