context("Test the ticker.")

test_that("Data is returned as a named numeric value.", {
  valid_codes = c("USD", "USDT", "btc", "eTh", "BnB")
  for (code in valid_codes) {
    p = price(code)
    expect_named(p, toupper(code))
    expect_type(p, "double")
    expect_gt(p, 0)

test_that("Errors around invalid codes are handled.", {
  expect_error(price("XRP"), "^Invalid currency code")

Try the xlm package in your browser

Any scripts or data that you put into this service are public.

xlm documentation built on Oct. 23, 2018, 1:04 a.m.