Skip to content

Commit

Permalink
vdiffr::
Browse files Browse the repository at this point in the history
  • Loading branch information
Martin Smith committed Dec 9, 2020
1 parent d1524ed commit 2626449
Showing 1 changed file with 4 additions and 3 deletions.
7 changes: 4 additions & 3 deletions tests/testthat/test-VisualizeQuartet.R
Original file line number Diff line number Diff line change
@@ -1,9 +1,10 @@
test_that("VizualiseQuartets()", {
expect_doppelganger("VQ-label", function() {
skip_if_not_installed('vdiffr')
vdiffr::expect_doppelganger("VQ-label", function() {
VisualizeQuartets(BalancedTree(10), CollapseNode(PectinateTree(10), 19),
style = 'label', precision = 1)
})
expect_doppelganger("VQ-tworow", function() {
vdiffr::expect_doppelganger("VQ-tworow", function() {
# Keep original plotting parameters:
origPar <- par(mfrow = c(2, 2))
VisualizeQuartets(BalancedTree(10), CollapseNode(PectinateTree(10), 19),
Expand All @@ -13,7 +14,7 @@ test_that("VizualiseQuartets()", {
spectrum = c(rep('red', 100), 'green'))
par(origPar)
})
expect_doppelganger("VQ-size", function() {
vdiffr::expect_doppelganger("VQ-size", function() {
VisualizeQuartets(BalancedTree(20), CollapseNode(PectinateTree(20), 29:33),
style = 'size', scale = 2)
})
Expand Down

0 comments on commit 2626449

Please sign in to comment.