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

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

Author: edd
Date: 2010-05-12 21:14:45 +0200 (Wed, 12 May 2010)
New Revision: 1212

Modified:
   pkg/Rcpp/inst/unitTests/runit.RcppParams.R
Log:
fix type in strptime format


Modified: pkg/Rcpp/inst/unitTests/runit.RcppParams.R
===================================================================
--- pkg/Rcpp/inst/unitTests/runit.RcppParams.R	2010-05-12 18:15:37 UTC (rev 1211)
+++ pkg/Rcpp/inst/unitTests/runit.RcppParams.R	2010-05-12 19:14:45 UTC (rev 1212)
@@ -61,7 +61,7 @@
             rs.add("datetime", y);
 	    return rs.getReturnList();';
     funx <- cppfunction(signature(x = "ANY"), src)
-    posixt <- as.POSIXct(strptime("2000-01-02 03:04:05.678", "%Y-%m-%d %H:%M:%0S"))
+    posixt <- as.POSIXct(strptime("2000-01-02 03:04:05.678", "%Y-%m-%d %H:%M:%OS"))
     attr(posixt, "tzone") <- NULL    ## because we don't set a tzone attribute in C++
     checkEquals(funx(list(val=posixt))[[1]], posixt, msg = "RcppParams.getDatetimeValue")
 }