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

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

Author: edd
Date: 2010-10-13 21:25:26 +0200 (Wed, 13 Oct 2010)
New Revision: 394

Modified:
   pkg/inst/unitTests/runit.addressbook.R
Log:
one small fix but still broken


Modified: pkg/inst/unitTests/runit.addressbook.R
===================================================================
--- pkg/inst/unitTests/runit.addressbook.R	2010-10-12 20:45:33 UTC (rev 393)
+++ pkg/inst/unitTests/runit.addressbook.R	2010-10-13 19:25:26 UTC (rev 394)
@@ -5,14 +5,17 @@
 
 # this is executed before each test function
 .setUp <- function() {
+    #addressbook.proto.file <- system.file( "proto", "addressbook.proto", package = "RProtoBuf" )
+    #readProtoFiles( file = addressbook.proto.file )
     file <- system.file( "examples", "addressbook.pb", package = "RProtoBuf" )
-    book <- read( tutorial.AddressBook, file )
+    book <<- read( tutorial.AddressBook, file )
 }
 
 test.size <- function() {
     checkEquals(book$size("person"),        2,   msg="Number of persons")
     checkEquals(bytesize(book),             125, msg="Bytes in book")
     checkEquals(bytesize(book$person[[1]]), 60,  msg="Bytes of first person message")
+}
 
 test.personOne <- function() {
     checkEquals(book$person[[1]]$name,              "Romain Francois",   msg="First person name")