tests/testthat/test-sporulation_gene_name.R

In SpoMAG: Probability of Sporulation Potential in MAGs

test_that("sporulation_gene_name works", {
  df <- data.frame(
    Preferred_name = c("spo0A", "-"),
    KEGG_ko = c("K07699", "K03466"),
    genome_ID = c("gen1","gen1")
  )
  result <- sporulation_gene_name(df)
  expect_true("spo0A" %in% result$spo_gene_name)
})