[Phylobase-commits] r514 - pkg/tests

[noreply at r-forge.r-project.org]

Author: francois
Date: 2009-08-19 22:17:56 +0200 (Wed, 19 Aug 2009)
New Revision: 514

Modified:
   pkg/tests/misctests.R
Log:
added test to make sure geospiza is a valid phylo4d object

Modified: pkg/tests/misctests.R
===================================================================
--- pkg/tests/misctests.R	2009-08-19 20:08:38 UTC (rev 513)
+++ pkg/tests/misctests.R	2009-08-19 20:17:56 UTC (rev 514)
@@ -4,6 +4,12 @@
 set.seed(1)
 
 data(geospiza)
+
+## make sure geospiza is properly formatted
+if(is.character(checkval <- checkPhylo4(geospiza)))
+  stop(checkval)
+  
+
 geospiza0 <-
   list(geospiza.tree=as(geospiza,"phylo"),geospiza.data=tdata(geospiza))
 ## push data back into list form as in geiger