fix obvious

Author: gogonzo

tests/testthat/test-qenv-class.R

@@ -10,17 +10,10 @@ testthat::describe("methods::new(qenv)", {
     expect_true(environmentIsLocked(as.environment(methods::new("qenv", .xData = new_env))))
   })
 
-  testthat::it("throws error when id and code length doesn't match", {
-    expect_error(methods::new("qenv", id = 1L), "@code and @id slots must have the same length\\.")
-  })
-
   testthat::it("throws error when .xData is not an environment", {
     expect_error(methods::new("qenv", .xData = 2), "Must be an environment, not 'double'\\.")
   })
 
-  testthat::it("throws error when code is not language or character object", {
-    expect_error(methods::new("qenv", code = 2), "`code` must be a character or language object\\.")
-  })
   testthat::it("initialized qenv(s) have different environments", {
     testthat::expect_false(identical(qenv()@.xData, qenv()@.xData))
   })

tests/testthat/test-qenv_eval_code.R

@@ -7,7 +7,7 @@ testthat::test_that("eval_code evaluates the code in the qenvs environment", {
 
 testthat::test_that("eval_code locks the environment", {
   q <- eval_code(qenv(), quote(iris1 <- iris))
-  testthat::expect_identical(isEnvironmentLocked(q2@.xData))
+  testthat::expect_true(environmentIsLocked(q@.xData))
 })
 
 testthat::test_that("eval_code doesn't have access to environment where it's called", {