tests/testthat/test-rnd_phylo_to_xml_init.R

context("rnd_phylo_to_xml_init")

test_that("use", {

  testthat::expect_silent(
    rnd_phylo_to_xml_init("my_id")
  )

})

test_that("abuse", {

  testthat::expect_error(
    rnd_phylo_to_xml_init(ape::roal(3))
  )

})
ropensci/beautier documentation built on March 12, 2019, 8:27 p.m.