tests/testthat/test-individual_pathotypes.R

In hagis: Analysis of Plant Pathogen Pathotype Complexities, Distributions and Diversity

# test individual pathotypes ---------------------------------------------------
data(P_sojae_survey)
diversities <- calculate_diversities(
  x = P_sojae_survey,
  cutoff = 60,
  control = "susceptible",
  sample = "Isolate",
  gene = "Rps",
  perc_susc = "perc.susc"
)

test_that("individual_pathotypes() returns a pander object", {
  expect_type(
    capture.output(
      individual_pathotypes(x = diversities, type = "text")), "character")
})

test_that("individual_pathotypes() stops if object is not hagis.diversities
          object", {
            expect_error(individual_pathotypes("y"),
                         regexp = "This is not a hagis.diversities object.")
          })