tests/testthat/test-ccme-boron.R

In ssddata: Species Sensitivity Distribution Data

test_that("ccme_data", {
  expect_s3_class(ccme_boron, "tbl")
  expect_silent(chk::check_data(
    ccme_boron,
    values = list(
      Chemical = c("Boron", "Boron", "Boron"),
      Species = "",
      Units = c("mg/L", "mg/L", "mg/L"),
      Conc = c(1.0, 70.7),
      Group = factor(c("Amphibian", "Fish", "Invertebrate", "Plant"))
    ),
    nrow = 28L
  ))
})