test_that(
  "amr_prevalence calculates correctly",
  {

    result <- amr_prevalence(
      resistant = 40,
      total = 100
    )

    expect_equal(
      result$prevalence,
      0.40
    )

    expect_equal(
      result$prevalence_percent,
      40
    )
  }
)