[Lme4-commits] r1736 - pkg/lme4/inst/tests

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

Author: dmbates
Date: 2012-05-16 05:09:06 +0200 (Wed, 16 May 2012)
New Revision: 1736

Modified:
   pkg/lme4/inst/tests/test-glmFamily.R
Log:
Modify check on error message.  For some reason the earlier one stopped working.


Modified: pkg/lme4/inst/tests/test-glmFamily.R
===================================================================
--- pkg/lme4/inst/tests/test-glmFamily.R	2012-05-16 03:08:11 UTC (rev 1735)
+++ pkg/lme4/inst/tests/test-glmFamily.R	2012-05-16 03:09:06 UTC (rev 1736)
@@ -120,6 +120,6 @@
     cppnb1$setTheta(2)
     sapply(etapos, function(x) expect_that(cppnb1$variance(x), equals(nb2$variance(x))))
     bfam      <- glmFamily$new(family=binomial())
-    expect_that(bfam$theta(), throws_error("theta accessor applies only to negative binomial"))
-    expect_that(bfam$setTheta(2), throws_error("setTheta applies only to negative binomial"))    
+    expect_error(bfam$theta(), "theta accessor applies only to negative binomial")
+    expect_error(bfam$setTheta(2), "setTheta applies only to negative binomial")
 })