tests/testthat/test-dataPrep.R

In jlb226/Meaty: Inventory Analytics Platform

library(testthat)

context("testing data prepration")

expectTrue <- function(x) {
  testthat::expect_true(x)
}

test_that("Correct Data Preparation Output", {
  ecomData <- read.table("../testdata/ecomData.csv", header = TRUE, sep = ",")

  ecomData <- prepData(ecomData)

  expectTrue(length(ecomData) == 14)
  expectTrue(inherits(ecomData$DateComplete, "Date"))
})