tests/testthat/test-historical-data.R

In bagasbgy/rucoin: R API to KuCoin Crytocurrency Exchange Market

# get one pair of symbol prices
prices <- get_kucoin_prices(
  symbols = "KCS/USDT",
  from = "2019-06-01 00:00:00",
  to = "2019-06-02 00:00:00",
  frequency = "1 hour"
)

# test that all columns from historical data returned completelyy
test_that("all columns from historical data completed", {
  expect_equal(colnames(prices), c("datetime", "open", "high", "low", "close", "volume", "turnover"))
})

# get multiple pair of symbol prices
prices <- get_kucoin_prices(
  symbols = c("KCS/USDT", "BTC/USDT", "KCS/BTC"),
  from = "2019-06-01 00:00:00",
  to = "2019-06-02 00:00:00",
  frequency = "1 hour"
)

# test that all columns from historical data returned completelyy
test_that("all columns from historical data completed", {
  expect_equal(colnames(prices), c("symbol", "datetime", "open", "high", "low", "close", "volume", "turnover"))
})