added tests for is.functions.R

talgalili · Nov 14, 2024 · 214b4ac · 214b4ac
1 parent 72ae3e1
commit 214b4ac
Showing 1 changed file with 23 additions and 0 deletions.
diff --git a/tests/testthat/test-is.functions.R b/tests/testthat/test-is.functions.R
@@ -0,0 +1,23 @@
+# library(testthat)
+# library(dendextend)
+
+
+context("is.functions")
+
+
+test_that("is.phylo works", {
+   dend <- as.dendrogram(hclust(dist(1:5)))
+   phy <- ape::as.phylo(dend)
+
+   expect_true(
+      is.phylo(phy)
+   )
+})
+
+
+test_that("fac2num works", {
+   # if non-factor object passed in
+   expect_error(
+      fac2num(1:4)
+   )
+})