bring error messages to tests

Author: m7pr

tests/testthat/test-qenv_eval_code.R

@@ -76,7 +76,7 @@ testthat::test_that("eval_code works with quoted code block", {
 })
 
 testthat::test_that("eval_code fails with unquoted expression", {
-  testthat::expect_error(eval_code(qenv(), a <- b))
+  testthat::expect_error(eval_code(qenv(), a <- b), "object 'b' not found")
 })
 
 testthat::test_that("an error when calling eval_code returns a qenv.error object which has message and trace", {

tests/testthat/test-qenv_within.R

@@ -93,7 +93,7 @@ testthat::test_that("external values are not taken from calling frame", {
     i <- subset(iris, Species == species)
   })
   testthat::expect_s3_class(qq, "qenv.error")
-  testthat::expect_error(get_code(qq))
+  testthat::expect_error(get_code(qq), "object 'species' not found")
 
   qq <- within(q, {
     i <- subset(iris, Species == species)