tests/testthat/test-getTodayCurrencyToEur.R

context("Checking getTodayCurrencyToEur function")
test_that("check, connection to server and size of currency table", {

  vCurrencyTable <- getTodayCurrencyToEur()
  expect_equal(nrow(vCurrencyTable), 1)

})
adamoleksak/sevenPackage documentation built on May 26, 2019, 12:30 a.m.