inst/tests/test-getSymbols.FI.R

In redmode/FinancialInstrument: Financial Instrument Model Infrastructure for R

context("getSymbols.FI")

from <- as.Date('2012-01-01')
to <- from + 9
tmpenv <- new.env()
tmpenv$BID <- xts(1:10, as.Date(from:to))
tmpdir <- file.path(tempdir(), "BID")
dir.create(tmpdir, showWarnings=FALSE)
saveSymbols.days("BID", tmpdir, extension="RData", env=tmpenv)
# make sure getSymbols.FI works if the directory has the same name as the Symbol
test_that("getSymbols.FI base_dir=Symbol", {
  expect_identical(NROW(getSymbols("BID", src="FI", dir=tmpdir, 
                                   extension="RData", auto.assign=FALSE, 
                                   from=from, to=to, days_to_omit=NULL,
                                   verbose=FALSE)), 10L)
})