[Phylobase-commits] r508 - pkg/tests

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

Author: bbolker
Date: 2009-08-19 20:04:57 +0200 (Wed, 19 Aug 2009)
New Revision: 508

Added:
   pkg/tests/phylosubtest.R
Log:
  test for basic subsetting op sanity



Added: pkg/tests/phylosubtest.R
===================================================================
--- pkg/tests/phylosubtest.R	                        (rev 0)
+++ pkg/tests/phylosubtest.R	2009-08-19 18:04:57 UTC (rev 508)
@@ -0,0 +1,11 @@
+require(phylobase)
+data(geospiza)
+
+gtree <- extractTree(geospiza)
+stopifnot(identical(gtree,prune(gtree,character(0))))
+
+stopifnot(identical(tdata(subset(geospiza)),
+                    tdata(subset(geospiza, tipLabels(geospiza)))))
+
+
+