Update tests/testthat/test-qenv_get_code.R

Co-authored-by: Aleksander Chlebowski <114988527+chlebowa@users.noreply.github.com>
Signed-off-by: Dawid Kałędkowski <dawid.kaledkowski@gmail.com>

Author: gogonzo

tests/testthat/test-qenv_get_code.R

@@ -952,7 +952,7 @@ testthat::test_that("original formatting and comments are preserved when express
   testthat::expect_identical(get_code(eval_code(qenv(), expr)), code)
 })
 
-testthat::test_that("extracting code doesn't fail when lhs contains two or more symbols occurring in lhs", {
+testthat::test_that("extracting code doesn't fail when lhs contains two or more symbols occurring in rhs", {
   code <- "l <- list(a = 1, b = 2)
     class(l) <- c('new class', class(l))" # l depends on class and class depends on l
   q <- eval_code(qenv(), code)