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-surfjota documentation built on May 8, 2019, 2:37 a.m.