tests/testthat/test-ubci_index.R

In mrchypark/ubci: Get Cryptocurrency Related Data by Upbit

context("test-ubci_index")

test_that("colume check", {
  tem <- ubci_index("UBAI")
  col <- c("index","date","open","high","low","close")
  expect_equal(names(tem), col)
})

test_that("index check 1", {
  expect<-ubci_index_options()$index[sample(1:26,1)]
  tem <- ubci_index(expect)
  index <- unique(tem$index)
  expect_equal(index, expect)
})

test_that("index check 2", {
  expect<-ubci_index_options()$index[sample(1:26,1)]
  tem <- ubci_index(expect)
  index <- unique(tem$index)
  expect_equal(index, expect)
})

test_that("index check 3", {
  expect<-ubci_index_options()$index[sample(1:26,1)]
  tem <- ubci_index(expect)
  index <- unique(tem$index)
  expect_equal(index, expect)
})

test_that("date check from", {
  chk <- tail(ubci_index("UBAI", from = Sys.Date()-5),1)$date
  expect_equal(chk, Sys.Date()-5)
})

test_that("date check to", {
  chk <- head(ubci_index("UBAI", to = Sys.Date()-2),1)$date
  expect_equal(chk, Sys.Date()-2)
})