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

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

Author: edd
Date: 2010-06-23 16:43:12 +0200 (Wed, 23 Jun 2010)
New Revision: 1674

Modified:
   pkg/Rcpp/inst/unitTests/runit.Date.R
Log:
test passes with standard checkEquals


Modified: pkg/Rcpp/inst/unitTests/runit.Date.R
===================================================================
--- pkg/Rcpp/inst/unitTests/runit.Date.R	2010-06-23 13:52:32 UTC (rev 1673)
+++ pkg/Rcpp/inst/unitTests/runit.Date.R	2010-06-23 14:43:12 UTC (rev 1674)
@@ -48,13 +48,6 @@
 		v[1] = Date(12,31,2005) ;
 		return wrap( v ) ;
 	', plugin = "Rcpp" )
-	
-	checkTrue( 
-		identical( 
-			fx(), 
-			c( as.Date( "2005/12/31",  "2005/12/31" ) )
-		)
-	)
-	
+    checkEquals(fx(), rep(as.Date("2005-12-31"),2), msg = "Date.vector")
 }