tests/testthat/test_solution.R

test_that("GetFromTreeBase_solution",{
	expect_is(GetFromTreeBase_solution(), "phylo")
})

test_that("GetTreeFromOpenTree_solution",{
	opentree.result <- GetTreeFromOpenTree_solution()
	expect_is(opentree.result[[1]], "phylo")
	expect_is(opentree.result[[2]], "phylo")
})
PhyloMeth/get-trees-ghuertaramos documentation built on May 8, 2019, 2:36 a.m.