tests/testthat/test-supported_coins.R

In geckor: R Client for the 'CoinGecko' API

test_that("supported_coins returns correct objects", {
  skip_on_cran()
  Sys.sleep(30)

  r <- supported_coins()
  skip_if(is.null(r), "Data could not be retrieved")

  Sys.sleep(2)

  expect_s3_class(r, "tbl")
  expect_named(r, c("coin_id", "symbol", "name"))
  expect_type(r$coin_id, "character")
  expect_type(r$symbol, "character")
  expect_type(r$name, "character")
})