added test

caseywdunn · Jul 16, 2017 · 1613d2d · 1613d2d
1 parent 94e181d
commit 1613d2d
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/tests/testthat/test_general.R b/tests/testthat/test_general.R
@@ -84,4 +84,14 @@ test_that("can get the connecting edges for tips that span root",{
 test_that("can get the connecting edges for ancestor and descendent nodes",{
 	edges = connecting_edges( siphonophore_ml, 65, 67)
 	expect_true( setequal( edges, c( 11, 12 ) ) )
-})
+})
+
+gene_tree_ultametric = chronos( gene_tree )
+test_that("extended ultrametric tree is still ultrametric",{
+	expect_true(  
+		is.ultrametric( 
+			extend_terminal_branches( gene_tree_ultametric, 1 ) 
+		) 
+	)
+})
+