tests/testthat/test_fall_severity.R

test_that(
  "fall_severity works",
  {
    expect_equal(fall_severity(1, 2), "minor")
    expect_equal(fall_severity(2, 1), "very severe")
  }
)
jaleisehall/rainbowtrout documentation built on March 22, 2021, 11:04 p.m.