tests/testthat/test-csv.R

In jmayalag/OHLCMerge: Merge multiple files

context("Test csv functions")

filepath <- function() {
  system.file("extdata", "IG_AUDJPY_D1.csv", package = "OHLCMerge")
}

test_that("read_ohlcv should read the csv with '%Y.%m.%d' date format", {
  csv_file <- filepath()
  df <- read_ohlcv(csv_file, orders = c("%Y.%m.%d %H:%M"))

  expect_equal(nrow(df), 7607)
  expect_equal(as.character(start(df)), "1993-05-16")
  expect_equal(as.character(end(df)), "2019-02-28")
  expect_equal(sum(df$Volume), 309304521)
})

test_that("read_ohlcv should read the csv with the default date formats", {
  csv_file <- filepath()
  df <- read_ohlcv(csv_file)

  expect_equal(nrow(df), 7607)
  expect_equal(as.character(start(df)), "1993-05-16")
  expect_equal(as.character(end(df)), "2019-02-28")
  expect_equal(sum(df$Volume), 309304521)
})

test_that("read_ohlcv should fail to read the csv with '%Y-%m-%d' date format", {
  csv_file <- filepath()
  df <- read_ohlcv(csv_file, orders = c("%Y-%m-%d %H:%M"), exact = TRUE)
  expect_equal(nrow(df), 0)
})