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

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

Author: edd
Date: 2010-08-12 23:46:17 +0200 (Thu, 12 Aug 2010)
New Revision: 378

Modified:
   pkg/inst/unitTests/runit.addressbook.R
Log:
and a bit more unit tests


Modified: pkg/inst/unitTests/runit.addressbook.R
===================================================================
--- pkg/inst/unitTests/runit.addressbook.R	2010-08-12 21:30:51 UTC (rev 377)
+++ pkg/inst/unitTests/runit.addressbook.R	2010-08-12 21:46:17 UTC (rev 378)
@@ -17,6 +17,10 @@
 test.personOne <- function() {
     checkEquals(book$person[[1]]$name,              "Romain Francois",   msg="First person name")
     checkEquals(book$person[[2]]$name,              "Dirk Eddelbuettel", msg="First person name")
+    checkEquals(book$person[[1]]$id,                1,   		 msg="First person id")
+    checkEquals(book$person[[2]]$id,                2,			 msg="First person id")
+    checkEquals(book$person[[1]]$email,    "romain at r-enthusiasts.com",   msg="First person email")
+    checkEquals(book$person[[2]]$email,             "edd at debian.org",    msg="Second person email")
     checkEquals(length(book$person[[1]]$phone),     1,                   msg="First person phones")
     checkEquals(length(book$person[[2]]$phone),     2,                   msg="Second person phones")
     checkEquals(book$person[[1]]$phone[[1]]$number, "+33(0)...",         msg="First person phone number")