environmentIsLocked(as.environment(methods::new("qenv"))) is not TRUE ('test-qenv-class.R:3:5')
environmentIsLocked(as.environment(methods::new("qenv"))) is not TRUE

`actual`:   FALSE
`expected`: TRUE

environmentIsLocked(as.environment(methods::new("qenv", .xData = new_env))) is not TRUE ('test-qenv-class.R:10:5')
environmentIsLocked(as.environment(methods::new("qenv", .xData = new_env))) is not TRUE

`actual`:   FALSE
`expected`: TRUE

`methods::new("qenv", id = 1L)` threw an error with unexpected message. ('test-qenv-class.R:14:5')
`methods::new("qenv", id = 1L)` threw an error with unexpected message.
Expected match: "@code and @id slots must have the same length\\."
Actual message: "cannot add bindings to a locked environment"
Backtrace:
     ▆
  1. ├─testthat::expect_error(methods::new("qenv", id = 1L), "@code and @id slots must have the same length\\.") at test-qenv-class.R:14:5
  2. │ └─testthat:::quasi_capture(...)
  3. │   ├─testthat (local) .capture(...)
  4. │   │ └─base::withCallingHandlers(...)
  5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
  6. └─methods::new("qenv", id = 1L)
  7.   ├─methods::initialize(value, ...)
  8.   └─teal.code (local) initialize(value, ...)
  9.     └─teal.code (local) .local(.Object, ...)
 10.       ├─methods::callNextMethod(.Object, new_xdata, ...)
 11.       │ └─base::eval(call, callEnv)
 12.       │   └─base::eval(call, callEnv)
 13.       └─methods (local) .nextMethod(.Object, new_xdata, ...)

`methods::new("qenv", code = 2)` threw an error with unexpected message. ('test-qenv-class.R:22:5')
`methods::new("qenv", code = 2)` threw an error with unexpected message.
Expected match: "`code` must be a character or language object\\."
Actual message: "invalid class \"qenv\" object: invalid object for slot \"code\" in class \"qenv\": got class \"numeric\", should be or extend class \"list\""
Backtrace:
     ▆
  1. ├─testthat::expect_error(methods::new("qenv", code = 2), "`code` must be a character or language object\\.") at test-qenv-class.R:22:5
  2. │ └─testthat:::quasi_capture(...)
  3. │   ├─testthat (local) .capture(...)
  4. │   │ └─base::withCallingHandlers(...)
  5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
  6. └─methods::new("qenv", code = 2)
  7.   ├─methods::initialize(value, ...)
  8.   └─teal.code (local) initialize(value, ...)
  9.     └─teal.code (local) .local(.Object, ...)
 10.       ├─methods::callNextMethod(.Object, new_xdata, ...)
 11.       │ └─base::eval(call, callEnv)
 12.       │   └─base::eval(call, callEnv)
 13.       └─methods (local) .nextMethod(.Object, new_xdata, ...)
 14.         ├─base::do.call(callNextMethod, c(.Object, args))
 15.         ├─methods (local) `<fn>`(`<qenv>`, code = 2)
 16.         │ └─base::eval(call, callEnv)
 17.         │   └─base::eval(call, callEnv)
 18.         └─methods (local) .nextMethod(`<qenv>`, code = 2)
 19.           └─methods::validObject(.Object)

`q$x <- 1` did not throw an error. ('test-qenv_constructor.R:41:5')
`q$x <- 1` did not throw an error.

parent.env([email protected]) not identical to parent.env(.GlobalEnv). ('test-qenv_constructor.R:60:5')
parent.env([email protected]) not identical to parent.env(.GlobalEnv).
Names: 6 string mismatches
Length mismatch: comparison on first 6 components
Component 1: Modes: ..., character
Component 1: target is not list-like
Component 2: 'current' is not an environment
Component 3: Modes: list, environment
Component 3: Lengths: 1, 3
Component 3: names for current but not for target
Component 3: current is not list-like
...

parent.env(q) not identical to parent.env(.GlobalEnv). ('test-qenv_constructor.R:65:5')
parent.env(q) not identical to parent.env(.GlobalEnv).
Names: 6 string mismatches
Length mismatch: comparison on first 6 components
Component 1: Modes: ..., character
Component 1: target is not list-like
Component 2: 'current' is not an environment
Component 3: Modes: list, environment
Component 3: Lengths: 1, 3
Component 3: names for current but not for target
Component 3: current is not list-like
...

unlist(q@code)[3] not identical to "# comment". ('test-qenv_eval_code.R:157:3')
unlist(q@code)[3] not identical to "# comment".
1/1 mismatches
x[1]: NA
y[1]: "# comment"