bquote not needed

Author: gogonzo

tests/testthat/test-qenv_get_warnings.R

@@ -1,5 +1,5 @@
 testthat::test_that("get_warnings accepts a qenv object and returns character", {
-  q <- eval_code(qenv(), bquote(warning("This is a warning!")))
+  q <- eval_code(qenv(), quote(warning("This is a warning!")))
   testthat::expect_identical(
     get_warnings(q),
     paste0(
@@ -10,7 +10,7 @@ testthat::test_that("get_warnings accepts a qenv object and returns character",
 })
 
 testthat::test_that("get_warnings accepts a qenv.error object and returns NULL", {
-  q <- eval_code(qenv(), bquote(error("This is a error!")))
+  q <- eval_code(qenv(), quote(error("This is a error!")))
   testthat::expect_null(get_warnings(q))
 })
 
@@ -19,14 +19,14 @@ testthat::test_that("get_warnings accepts a NULL object and returns NULL", {
 })
 
 testthat::test_that("get_warnings accepts a qenv object with no warning and returns NULL", {
-  q <- eval_code(qenv(), bquote("x <- 1"))
+  q <- eval_code(qenv(), quote("x <- 1"))
   testthat::expect_null(get_warnings(q))
 })
 
 testthat::test_that("get_warnings accepts a qenv object with 2 warnings", {
   q <- qenv() %>%
-    eval_code(bquote(warning("This is a warning 1!"))) %>%
-    eval_code(bquote(warning("This is a warning 2!")))
+    eval_code(quote(warning("This is a warning 1!"))) %>%
+    eval_code(quote(warning("This is a warning 2!")))
   testthat::expect_identical(
     get_warnings(q),
     paste0(
@@ -38,7 +38,7 @@ testthat::test_that("get_warnings accepts a qenv object with 2 warnings", {
 })
 
 testthat::test_that("get_warnings accepts a qenv object with a single eval_code returning 2 warnings", {
-  q <- qenv() %>% eval_code(bquote({
+  q <- qenv() %>% eval_code(quote({
     warning("This is a warning 1!")
     warning("This is a warning 2!")
   }))
@@ -64,8 +64,8 @@ testthat::test_that("get_warnings accepts a qenv object with a single eval_code
 
 testthat::test_that("get_warnings accepts a qenv object with 1 warning eval_code and 1 no warning eval_code", {
   q <- qenv() %>%
-    eval_code(bquote("x <- 1")) %>%
-    eval_code(bquote(warning("This is a warning 2!")))
+    eval_code(quote("x <- 1")) %>%
+    eval_code(quote(warning("This is a warning 2!")))
   testthat::expect_identical(
     get_warnings(q),
     paste0(