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

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

Author: edd
Date: 2010-01-27 23:24:43 +0100 (Wed, 27 Jan 2010)
New Revision: 494

Modified:
   pkg/inst/unitTests/runit.RcppDate.R
Log:
compare against getJulian() and not getJDN()


Modified: pkg/inst/unitTests/runit.RcppDate.R
===================================================================
--- pkg/inst/unitTests/runit.RcppDate.R	2010-01-27 22:22:22 UTC (rev 493)
+++ pkg/inst/unitTests/runit.RcppDate.R	2010-01-27 22:24:43 UTC (rev 494)
@@ -27,8 +27,8 @@
             rs.add("month", dt.getMonth());
             rs.add("day",   dt.getDay());
             rs.add("year",  dt.getYear());
-            rs.add("julian",dt.getJDN());
-	        return rs.getReturnList();';
+            rs.add("julian",dt.getJulian());
+	    return rs.getReturnList();';
     funx <- cfunction(signature(), src, Rcpp=TRUE)
     checkEquals(funx(), list(month=12, day=31, year=1999, julian=10956), msg = "RcppDate.get.functions")
 }
@@ -43,7 +43,7 @@
             rs.add("equal",   d2 == d1);
             rs.add("ge",      d2 >= d1);
             rs.add("le",      d2 <= d1);
-	        return rs.getReturnList();';
+	    return rs.getReturnList();';
     funx <- cfunction(signature(), src, Rcpp=TRUE)
     checkEquals(funx(), list(diff=1, bigger=1, smaller=0, equal=0, ge=1, le=0), msg = "RcppDate.operators")
 }