Add test to get_code with no code on qenv

Author: llrs-roche

tests/testthat/test-qenv_get_code.R

@@ -1,5 +1,9 @@
 pasten <<- function(...) paste(..., collapse = "\n")
 
+testthat::test_that("get_code returns empty character if no code", {
+  expect_identical(get_code(qenv()), "")
+})
+
 testthat::test_that("get_code returns code (character(1) by default) of qenv object", {
   q <- qenv()
   q <- eval_code(q, quote(x <- 1))