[Rprotobuf-commits] r434 - pkg/inst/unitTests

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

Author: romain
Date: 2011-11-07 15:20:24 +0100 (Mon, 07 Nov 2011)
New Revision: 434

Modified:
   pkg/inst/unitTests/runit.int64.support.R
Log:
testing int64 support in message fields

Modified: pkg/inst/unitTests/runit.int64.support.R
===================================================================
--- pkg/inst/unitTests/runit.int64.support.R	2011-11-07 14:13:49 UTC (rev 433)
+++ pkg/inst/unitTests/runit.int64.support.R	2011-11-07 14:20:24 UTC (rev 434)
@@ -28,17 +28,41 @@
   checkEquals( msg$b, as.uint64(2) )
   checkEquals( msg$c, as.int64(1:4) )
   checkEquals( msg$d, as.uint64(1:4) )
+  msg$a <- 11
+  msg$b <- 12
+  msg$c <- seq(1,15, by = 1 )
+  msg$d <- seq(1,15, by = 1 )
+  checkEquals( msg$a, as.int64(11) )
+  checkEquals( msg$b, as.uint64(12) )
+  checkEquals( msg$c, as.int64(1:15) )
+  checkEquals( msg$d, as.uint64(1:15) )
   
   msg <- new( TestInt64, a = 1L, b = 2L, c = 1:4, d = 1:4 )
   checkEquals( msg$a, as.int64(1) )
   checkEquals( msg$b, as.uint64(2) )
   checkEquals( msg$c, as.int64(1:4) )
   checkEquals( msg$d, as.uint64(1:4) )
+  msg$a <- 11L
+  msg$b <- 12L
+  msg$c <- 1:15
+  msg$d <- 1:15
+  checkEquals( msg$a, as.int64(11) )
+  checkEquals( msg$b, as.uint64(12) )
+  checkEquals( msg$c, as.int64(1:15) )
+  checkEquals( msg$d, as.uint64(1:15) )
   
   msg <- new( TestInt64, a = as.int64(1), b = as.int64(2), c = as.int64(1:4), d = as.int64(1:4) )
   checkEquals( msg$a, as.int64(1) )
   checkEquals( msg$b, as.uint64(2) )
   checkEquals( msg$c, as.int64(1:4) )
   checkEquals( msg$d, as.uint64(1:4) )
+  msg$a <- as.int64(11)
+  msg$b <- as.uint64(12)
+  msg$c <- as.int64( 1:15 )
+  msg$d <- as.uint64( 1:15 )
+  checkEquals( msg$a, as.int64(11) )
+  checkEquals( msg$b, as.uint64(12) )
+  checkEquals( msg$c, as.int64(1:15) )
+  checkEquals( msg$d, as.uint64(1:15) )
   
 }