Some new tests with tinytest

KlausVigo · Nov 26, 2019 · 5160a05 · 5160a05
1 parent a9818a5
commit 5160a05
Show file tree

Hide file tree

Showing 8 changed files with 28 additions and 182 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -20,8 +20,7 @@ Imports:
     phangorn (>= 2.5),
     utils
 Suggests:
-    vdiffr, 
-    testthat, 
+    tinytest, 
     BiocStyle,
     ggimage,
     knitr

diff --git a/inst/tinytest/test_tanggle.R b/inst/tinytest/test_tanggle.R
@@ -0,0 +1,24 @@
+library(tanggle)
+library(ape)
+
+enet <- ape::read.evonet(text="((a:2,(b:1)#H1:1):1,(#H1,c:1):2);")
+# ggevonet(enet) + geom_tiplab()
+
+expect_true(inherits(enet, "evonet"))
+min_net <- minimize_overlap(enet)
+expect_true(inherits(min_net, "evonet"))
+
+nd <- node.depth.evonet(enet)
+
+fe <- tanggle:::fortify.evonet(enet)
+expect_equal(class(fe), "data.frame")
+
+
+data(yeast, package="phangorn")
+dm <- phangorn::dist.ml(yeast)
+nnet <- phangorn::neighborNet(dm)
+# ggsplitnet(nnet) + geom_tiplab2()
+
+fspl <- tanggle:::fortify.networx(nnet)
+expect_equal(class(fspl), "data.frame")
+
diff --git a/tests/figs/deps.txt b/tests/figs/deps.txt
diff --git a/tests/figs/networx/basic-reticulate-network.svg b/tests/figs/networx/basic-reticulate-network.svg
diff --git a/tests/figs/networx/basic-splits-network.svg b/tests/figs/networx/basic-splits-network.svg
diff --git a/tests/testthat.R b/tests/testthat.R
diff --git a/tests/testthat/test_networx.R b/tests/testthat/test_networx.R
diff --git a/tests/tinytest.R b/tests/tinytest.R
@@ -0,0 +1,3 @@
+if (require("tinytest", quietly=TRUE)){
+    test_package("tanggle")
+}