tests/testthat/test-cards.R

In mooreaw/scRyfall: R Wrapper for the Scryfall API

test_that("All get_card_ functions return a tibble.", {
  cc_name <- get_card_by_name("Cryptic Command")
  cc_id   <- get_card_by_id("30f6fca9-003b-4f6b-9d6e-1e88adda4155")

  expect_true(is_tibble(cc_name))
  expect_true(is_tibble(cc_id))
})

test_that("The search_cards() function should return a tibble.", {
  expect_true(is_tibble(search_cards("!negate")))
})

test_that("fuzzy = TRUE should give the same results as non fuzzy, assuming the same card", {
  cc_name_1 <- get_card_by_name("ajanis pridemate", fuzzy = TRUE)
  cc_name_2 <- get_card_by_name("Ajani's Pridemate")

  expect_equal(cc_name_1$name, cc_name_2$name)
  expect_equal(cc_name_1$set_name, cc_name_2$set_name)
})

test_that("Searching for a frequently printed card, by name, should return at least 1 result.", {
  n1 <- get_card_by_name("Negate")
  n2 <- search_cards("!negate")

  expect_gt(nrow(n1), 0)
  expect_gt(nrow(n2), 0)
})

test_that("get_card_by_name() returns only one card at a time.", {
  nm_cards <- c("Ajani's Pridemate", "Elspeth, Knight Errant")

  res <- get_card_by_name(nm_cards)

  # only one card should be returned
  expect_equal(nrow(res), 1L)

  # the card returned should be the first supplied
  expect_equal(res$name, "Ajani's Pridemate")
})

test_that("Querying each ID type should succeed, and should return the same card name.", {
  ids <- c("e92c7477-d453-4fa4-acf4-3835ab9eb55a", "83095", "73262", "491701")
  types <- c("scryfall", "mtgo", "arena", "multiverse")
  out <- c()

  for (i in 1:4) {
    res <- suppressWarnings(get_card_by_id(ids[i], types[i]))
    out <- c(out, out$name)
  }

  expect_true(all(out == "Negate"))
})

# TODO
test_that("Cards missing arena or MTGO IDs get NA in their columns.", {
  skip("Not implemented.")
})

test_that("Double-faced cards are handled sensibly.", {
  res1 <- get_card_by_name("Delver of Secrets")
  res2 <- get_card_by_name("Insectile Aberration")

  # you can search for either side, but it should return the DFC
  expect_equal(res1$name, res2$name)

  # it's a DFC, so we shouldn't have this column in the results-- it should be nested in card_faces
  expect_error(pull(res1, power))

  # the card_faces column shouldn't be empty
  expect_false(is.null(res1$card_faces))
})

test_that("Pagination should work correctly.", {
  res <- search_cards("set:mid is:booster", unique = "art")

  expect_equal(nrow(res), max(as.numeric(res$collector_number)))
})