tests/testthat/test-popnames.R

data(iupac)

test_that("popnames() outputs list", {
    poplist <- list(FRA = grep("Mmd.FRA", names(iupac)))
    iupac <- iupac |> addpop2string(poplist)
    expect_true(popnames(iupac)$FRA[1] == "Mmd.FRA.14")
})
kullrich/MSA2dist documentation built on Nov. 14, 2024, 5:39 p.m.