context("phylocom")
test_that("phylocom executable works", {
skip_on_cran()
expect_output(phylocom(), "Cam Webb")
expect_output(phylocom(), "Copyright")
expect_output(phylocom(), "community structure")
expect_output(phylocom(), "Phylogeny Tools")
expect_is(phylocom(intern = TRUE), "character")
expect_match(phylocom(intern = TRUE), "Cam Webb")
})
test_that("phylocom fails well", {
skip_on_cran()
if (.Platform$OS.type == "windows") {
expect_error(phylocom(args = 4),
"is.character\\(args\\) is not TRUE")
expect_error(phylocom(args = 4, intern = TRUE),
"is.character\\(args\\) is not TRUE")
} else {
expect_output(phylocom(args = 4), "Oops! Command not recognized")
expect_match(phylocom(args = 4, intern = TRUE),
"Oops! Command not recognized")
}
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.