[Rprotobuf-commits] r869 - in pkg: . inst/unitTests

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

Author: murray
Date: 2014-02-22 00:30:57 +0100 (Sat, 22 Feb 2014)
New Revision: 869

Modified:
   pkg/ChangeLog
   pkg/inst/unitTests/runit.messages.R
Log:
Add a unit test for the deprecated groups feature which works fine
with RProtoBuf.



Modified: pkg/ChangeLog
===================================================================
--- pkg/ChangeLog	2014-01-29 01:18:04 UTC (rev 868)
+++ pkg/ChangeLog	2014-02-21 23:30:57 UTC (rev 869)
@@ -1,3 +1,9 @@
+2014-02-21  Murray Stokely  <mstokely at google.com>
+
+	* inst/unitTests/runit.messages.R (test.message): Add a test for
+	  the deprecated group feature which works fine with RProtoBuf.
+	  The type is converted to lower case, which users often forget.
+
 2014-01-19  Dirk Eddelbuettel  <edd at debian.org>
 
 	* DESCRIPTION: Finalize release 0.4.0 with initial Windows support

Modified: pkg/inst/unitTests/runit.messages.R
===================================================================
--- pkg/inst/unitTests/runit.messages.R	2014-01-29 01:18:04 UTC (rev 868)
+++ pkg/inst/unitTests/runit.messages.R	2014-02-21 23:30:57 UTC (rev 869)
@@ -23,6 +23,9 @@
     readProtoFiles(file=unittest.proto.file)
   }
   a <- new(protobuf_unittest.TestAllTypes)
+  a$optionalgroup$a <- 3
+  checkEquals(a$optionalgroup$a, 3)
+
   a$repeated_nested_message <- list(
       new(protobuf_unittest.TestAllTypes.NestedMessage, bb=3),
       new(protobuf_unittest.TestAllTypes.NestedMessage, bb=4))
@@ -39,7 +42,7 @@
 
   checkException(a$repeated_nested_message <- list(
       new(protobuf_unittest.TestAllTypes.NestedMessage, bb=4),
-      3))                                   
+      3))
 
   checkException(a$repeated_nested_message <- list(
       new(protobuf_unittest.TestAllTypes.NestedMessage, bb=4),