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-robsansom1981 documentation built on May 9, 2017, 6:40 p.m.