tests/testthat/test-show_elements.R

In ggvenn: Draw Venn Diagram by 'ggplot2'

test_that("show_elements", {
      a <- list(A = c("apple", "pear", "peach"), B = c("apple", "lemon"))
      
  expect_snapshot(
    normalize_ggvenn_output(
      ggvenn(a, show_elements = TRUE)
    )
  )

    expect_snapshot(
    normalize_ggvenn_output(
      ggvenn(a, show_elements = TRUE, label_sep = "\n")  # show elements in line
  )
  )
})