tests/testthat/test-check_id_list.R

In vigicaen: 'VigiBase' Pharmacovigilance Database Toolbox

test_that("id list checker works for both character and numeric inputs", {
  good_list <-
    list(
      item1 = c("item1", "item2"),
      item2 = c("item3", "item4")
    )

  good_list_num <-
    list(
      item1 = c(165108, 6684523),
      item2 = c(8845, 6507)
    )

  dataframe_input <-
    data.frame(a = c(1, 2))

  wrong_input <-
    c("item1", "item2")


  wrong_list <-
    list(
      c("item1", "item2")
    )

  wrong_list2 <-
    list(
      item1 = list(itemsub1 = c("item1", "item2"),
                   itemsub2 = c("item3", "item4")),
      item2 = c("item3")
    )

  expect_invisible(check_id_list(good_list))

  expect_invisible(check_id_list(good_list_num))

  # data.frames are allowed
  expect_invisible(check_id_list(dataframe_input))

  expect_snapshot(
    error = TRUE, {
      check_id_list(wrong_input)
    })

  expect_snapshot(
    error = TRUE, {
    check_id_list(wrong_list)
    })

  expect_snapshot(
    error = TRUE, {
    check_id_list(wrong_list2)
      })

  expect_invisible(check_id_list_numeric(good_list_num))

  expect_snapshot(
    error = TRUE, {
    check_id_list_numeric(good_list)
    })

  expect_snapshot(
    error = TRUE, {
      check_id_list_numeric(wrong_list)
    })

  expect_snapshot(
    error = TRUE, {
      check_id_list_numeric(wrong_list2)
    })

  cli::test_that_cli("format is ok", {
    expect_snapshot(error = TRUE, {
      check_id_list(wrong_list, arg = "x")
    })
  })

  cli::test_that_cli("format is ok", {
    expect_snapshot(error = TRUE, {
      check_id_list_numeric(good_list, arg = "x")
    })
  })
})