correct tests

tests/testthat/test-g_lineplot.R

@@ -158,7 +158,7 @@ testthat::test_that("g_lineplot works with no strata (group_var) and allows poin
       variables = control_lineplot_vars(group_var = NULL)
     )
   )
-  testthat::expect_true(
+  testthat::expect_false( # no group variable
     any(
       vapply(
         g_lineplot_no_strata$layers, function(x) {
@@ -184,6 +184,23 @@ testthat::test_that("g_lineplot works with no strata (group_var) and allows poin
       )
     )
   )
+  g_lineplot_single_strata <- withr::with_options(
+    opts_partial_match_old,
+    g_lineplot(
+      adlb2,
+      adsl2
+    )
+  )
+  testthat::expect_true( # only one group variable
+    any(
+      vapply(
+        g_lineplot_single_strata$layers, function(x) {
+          any(grepl(class(x$geom), pattern = "line", ignore.case = TRUE))
+        },
+        logical(1L)
+      )
+    )
+  )
 })
 
 testthat::test_that("linetype works as well as col with manual scaling and other options (errorbar_width)", {