fix some tests

Author: m7pr

tests/testthat/test-qenv_eval_code.R

@@ -70,7 +70,7 @@ testthat::test_that("eval_code works with quoted code block", {
 
   testthat::expect_equal(
     unlist(q1@code),
-    c("a <- 1", "b <- 2")
+    c("a <- 1\n", "b <- 2")
   )
   testthat::expect_equal(q1@env, list2env(list(a = 1, b = 2)))
 })

tests/testthat/test-qenv_extract.R

@@ -38,7 +38,7 @@ testthat::test_that("`[.` extract proper code", {
   qs <- q[object_names]
   testthat::expect_identical(
     unlist(qs@code),
-    c("x<-1", "a<-1")
+    c("x<-1\n", "a<-1;")
   )
 })
 
@@ -49,7 +49,7 @@ testthat::test_that("`[.` preservers comments in the code", {
   qs <- q[c("x", "a")]
   testthat::expect_identical(
     unlist(qs@code),
-    c("x<-1 #comment", "a<-1")
+    c("x<-1 #comment\n", "a<-1;")
   )
 })