tests/testthat/test-data_types.R

In ggvenn: Draw Venn Diagram by 'ggplot2'

test_that("multiplication works", {
  a <- list(A = 1:5, B = 4:6)
  d <- dplyr::tibble(key = 1:6,
              A = c(rep(TRUE, 5), FALSE),
              B = rep(c(FALSE, TRUE), each = 3))
  
  expect_identical(a, data_frame_to_list(d))  # TRUE
  
  # list_to_data_frame creates _key column, not key column
  d_expected <- d
  names(d_expected)[names(d_expected) == 'key'] <- '_key'
  expect_identical(d_expected, list_to_data_frame(a))  # TRUE
})