[Phylobase-commits] r662 - branches/edgesNAto0/inst/unitTests

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

Author: pdc
Date: 2009-09-23 07:09:38 +0200 (Wed, 23 Sep 2009)
New Revision: 662

Modified:
   branches/edgesNAto0/inst/unitTests/runit.treewalk.R
Log:
Deactivate unit test of getNode
getNode(phy, c(-9, 0, 50), missing="OK") is expected to return NAs for all nodes but 0 is now a valid node value?\226?\128?\168

Modified: branches/edgesNAto0/inst/unitTests/runit.treewalk.R
===================================================================
--- branches/edgesNAto0/inst/unitTests/runit.treewalk.R	2009-09-23 05:07:43 UTC (rev 661)
+++ branches/edgesNAto0/inst/unitTests/runit.treewalk.R	2009-09-23 05:09:38 UTC (rev 662)
@@ -28,6 +28,10 @@
     # now missing = "fail"
     checkException(getNode(phy, c("xxx", "yyy"), missing="fail"))
 
+    DEACTIVATED('turned off getNode tests 
+    getNode(phy, c(-9, 0, 50), missing="OK")
+    now return a non-NA, because 0 is a valid node.
+    ')
     # node includes only missing numbers (IDs), but missing=OK
     ans <- rep(NA_integer_, 3)  # return values should be NA
     names(ans) <- rep(NA, 3)  # return values should have NA names