[Rcpp-commits] r3375 - pkg/int64/inst/unitTests

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

Author: romain
Date: 2011-11-17 08:28:32 +0100 (Thu, 17 Nov 2011)
New Revision: 3375

Modified:
   pkg/int64/inst/unitTests/runit.int64.R
Log:
data.frame unit tests with one int64 column and one uint64 column

Modified: pkg/int64/inst/unitTests/runit.int64.R
===================================================================
--- pkg/int64/inst/unitTests/runit.int64.R	2011-11-17 07:24:46 UTC (rev 3374)
+++ pkg/int64/inst/unitTests/runit.int64.R	2011-11-17 07:28:32 UTC (rev 3375)
@@ -129,3 +129,12 @@
     options( old.op )
 }
 
+test.dataframe <- function(){
+    df <- data.frame( a = 1:4 )
+    df$b <- as.int64( 1:4 )
+    df$c <- as.uint64( 1:4 )
+    
+    checkEquals( df$b[3:4], df$b[1:2] + 2L )
+    checkEquals( df$c[3:4], df$c[1:2] + 2L )
+}
+