tests/testthat/test-currency.R

In yahoofinancer: Fetch Data from Yahoo Finance API

if (requireNamespace("httptest", quietyly = TRUE)) {
  httptest::with_mock_api({
    test_that("output from currency converter is as expected", {
      testthat::skip_on_cran()

      trend <- currency_converter('GBP', 'USD', '2022-07-01', '2022-07-5', '1d')
      expect_equal(nrow(trend), 3)
      expect_equal(round(trend$high, 2), c(1.22, 1.22, 1.21))
      expect_equal(round(trend$low, 2), c(1.20, 1.21, 1.19))


      trend3 <- currency_converter(from = 'GBP',
                                   to = 'USD',
                                   period = '5d',
                                   interval = '1d')
      expect_equal(nrow(trend3), 5)
      expect_equal(round(trend3$high, 2), c(1.18, 1.17, 1.16, 1.16, 1.15))
      expect_equal(round(trend3$low, 2), c(1.16, 1.16, 1.15, 1.15, 1.14))
    })
  })
}