tests/testthat/test-match_info.R

In psychelzh/data.iquizoo: Useful datasets used in IQUIZOO workflow

test_that("Match existing information", {
  game_id <- bit64::as.integer64(305067065282821)
  match_info(game_id, "game_name_abbr") |>
    expect_identical("SandiaA")
})

test_that("Error if no match", {
  match_info(0, "game_name") |>
    expect_error("not matched")
  is.na(match_info(0, "game_name", fail_on_missing = FALSE)) |>
    expect_true()
})