tests/testthat/test-symbols.R

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))
})
evanodell/fixerapi documentation built on Nov. 24, 2020, 2:43 a.m.