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

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

Author: murray
Date: 2014-09-16 03:34:29 +0200 (Tue, 16 Sep 2014)
New Revision: 896

Modified:
   pkg/inst/unitTests/runit.golden.message.R
Log:
Fix test now that as.list(enumdescriptor) now correctly returns lists.



Modified: pkg/inst/unitTests/runit.golden.message.R
===================================================================
--- pkg/inst/unitTests/runit.golden.message.R	2014-09-16 01:16:01 UTC (rev 895)
+++ pkg/inst/unitTests/runit.golden.message.R	2014-09-16 01:34:29 UTC (rev 896)
@@ -21,7 +21,7 @@
 	import_enum <- as.list(protobuf_unittest_import.ImportEnum )
 	checkTrue( all( c("IMPORT_FOO", "IMPORT_BAR", "IMPORT_BAZ") %in% names(import_enum) ), 
 		msg = "expected names for 'protobuf_unittest_import.ImportEnum'" )
-	checkEquals( unname(import_enum), 7:9, 
+	checkEquals( unlist(unname(import_enum)), 7:9, 
 		msg = "expected values for 'protobuf_unittest_import.ImportEnum' " )
 }
 
@@ -51,7 +51,7 @@
 	foreign_enum <- as.list( protobuf_unittest.ForeignEnum )
 	checkEquals( length(foreign_enum), 3L, msg = "length( protobuf_unittest.ForeignEnum ) == 3" )
 	checkTrue( all( c("FOREIGN_FOO", "FOREIGN_BAR", "FOREIGN_BAZ") %in% names( foreign_enum ) ), msg = "expected names for enum `protobuf_unittest.ForeignEnum`" )
-	checkEquals( unname(as.list(protobuf_unittest.ForeignEnum)), 4:6, msg = "expected values for enum `protobuf_unittest.ForeignEnum`" )
+	checkEquals( unlist(unname(as.list(protobuf_unittest.ForeignEnum))), 4:6, msg = "expected values for enum `protobuf_unittest.ForeignEnum`" )
 	
 }