tests/testthat/test-generateCharacters.R

context("generateCharacters")

test_that("generateCharacters produces a valid key value", {
  expect_equal(charmatch("rawr", generateCharacters("rawr", "M")), 1)
## make sure there are line breaks, which represent multiple entries
    expect_true(grepl("\n", generateCharacters(c("xy", "fem"), c("M", "F")), fixed=T))
})
ecology-rocks/grammaR documentation built on May 15, 2019, 7:58 p.m.