tests/testthat/test_getCleanData.R

In nickto/PensionFundsLv: Analysis of Latvian Pension FundsVersion: 0.0.0.9000

context("Test getCleanData")

fundsNav <- getFundData(file = "fund-nav-test.Rdata",
                        dir = "../../tests/test-data")
rf <- getRfData(file = "rf-test.Rdata",
                dir = "../../tests/test-data")

test_that("Test getCleanData with getFundData and get", {
  expect_error(getCleanData(fundsNav, rf, "days"), NA)
  expect_error(getCleanData(fundsNav, rf, "weeks"), NA)
  expect_error(getCleanData(fundsNav, rf, "months"), NA)
  expect_error(getCleanData(fundsNav, rf, "quarters"), NA)
  expect_error(getCleanData(fundsNav, rf, "years"), NA)
})