tests/testthat/test-df_prices.R

In pawel-wieczynski/PolishStock: Analysis of WSE stocks and other assets.

test_that("are correct data types", {

  files <- list.files('..\\..\\datasets\\')
  close_prices <- df_prices(files, source = '..\\..\\datasets\\')

  expect_s3_class(close_prices, 'data.frame')
  expect_s3_class(close_prices[1,1], 'Date')
  expect_type(unlist(close_prices[2], use.names = FALSE), 'double')

})