From 2626449727142140f1679f72aa73aea22c545bdb Mon Sep 17 00:00:00 2001 From: Martin Smith Date: Wed, 9 Dec 2020 10:27:16 +0000 Subject: [PATCH] vdiffr:: --- tests/testthat/test-VisualizeQuartet.R | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/tests/testthat/test-VisualizeQuartet.R b/tests/testthat/test-VisualizeQuartet.R index 83f40267..940489da 100644 --- a/tests/testthat/test-VisualizeQuartet.R +++ b/tests/testthat/test-VisualizeQuartet.R @@ -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), @@ -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) })