tests/testthat/test-symbols.R

In fixerapi: An R Client for the "Fixer.io" Currency API

context("test-symbols.R")

test_that("symbols work", {
  skip_on_cran()
  skip_on_travis()
  skip_on_appveyor()

  syms <- fixer_symbols()
  expect_equal(length(syms), 2)
  expect_true("USD" %in% syms$name)
  expect_true(tibble::is.tibble(syms))
})