[Rcpp-commits] r454 - pkg/inst/unitTests

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

Author: edd
Date: 2010-01-25 14:08:24 +0100 (Mon, 25 Jan 2010)
New Revision: 454

Modified:
   pkg/inst/unitTests/runit.RcppResultSet.R
Log:
comment datetime change out for now


Modified: pkg/inst/unitTests/runit.RcppResultSet.R
===================================================================
--- pkg/inst/unitTests/runit.RcppResultSet.R	2010-01-25 12:48:13 UTC (rev 453)
+++ pkg/inst/unitTests/runit.RcppResultSet.R	2010-01-25 13:08:24 UTC (rev 454)
@@ -107,16 +107,16 @@
     checkEquals(funx(v)[[1]], v, msg = "RcppResultSet.RcppDateVector")
 }
 
-test.RcppResultSet.RcppDatetime <- function() {
-    src <- 'RcppDatetime y(x);
-            RcppResultSet rs;
-            rs.add("foo", y);
-	    return rs.getReturnList();';
-    funx <- cfunction(signature(x="ANY"), src, Rcpp=TRUE)
-    posixt <- as.POSIXct(strptime("2000-01-01 01:02:03.456", "%Y-%m-%d %H:%M:%OS"))
-    attr(posixt, "tzone") <- NULL  # no attribute gets set at the C++ level
-    checkEquals(funx(as.numeric(posixt))[[1]], posixt, msg = "RcppResultSet.RcppDatetime")
-}
+## test.RcppResultSet.RcppDatetime <- function() {
+##     src <- 'RcppDatetime y(x);
+##             RcppResultSet rs;
+##             rs.add("foo", y);
+## 	    return rs.getReturnList();';
+##     funx <- cfunction(signature(x="ANY"), src, Rcpp=TRUE)
+##     posixt <- as.POSIXct(strptime("2000-01-01 01:02:03.456", "%Y-%m-%d %H:%M:%OS"))
+##     attr(posixt, "tzone") <- NULL  # no attribute gets set at the C++ level
+##     checkEquals(funx(as.numeric(posixt))[[1]], posixt, msg = "RcppResultSet.RcppDatetime")
+## }
 
 test.RcppResultSet.RcppDatetimeVector <- function() {
     src <- 'RcppDatetimeVector y(x);