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

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

Author: edd
Date: 2010-01-23 22:14:56 +0100 (Sat, 23 Jan 2010)
New Revision: 437

Modified:
   pkg/inst/unitTests/runit.RcppParams.R
Log:
make it fractional datetime for good measure


Modified: pkg/inst/unitTests/runit.RcppParams.R
===================================================================
--- pkg/inst/unitTests/runit.RcppParams.R	2010-01-23 21:04:58 UTC (rev 436)
+++ pkg/inst/unitTests/runit.RcppParams.R	2010-01-23 21:14:56 UTC (rev 437)
@@ -65,7 +65,7 @@
             rs.add("datetime", y);
 	    return rs.getReturnList();';
     funx <- cfunction(signature(x = "ANY"), src, Rcpp=TRUE)
-    posixt <- as.POSIXct(strptime("2000-01-02 03:04:05", "%Y-%m-%d %H:%M:%S"))
+    posixt <- as.POSIXct(strptime("2000-01-02 03:04:05.678", "%Y-%m-%d %H:%M:%0S"))
     attr(posixt, "tzone") <- NULL    ## because we don't set a tzone attribute in C++
     checkEquals(funx(list(val=posixt))[[1]], posixt, msg = "RcppParams.getDatetimeValue")
 }