tests/testthat/test_timeSequenceEncored.R

In EncoredTechR/baseEncored: Base R packages for Encored Technologies

context("Test timeSequenceEncored")

testEnvFileName <- "testEnv_timeSequenceEncored.RData"
pkgName <- getPackageName()
testEnvFilePath <- getExtDataFilePathOfInstalledPkg(testEnvFileName, pkgName)

load(testEnvFilePath)

test_that(desc = "Test timeSequenceEncored",
          code = {
            testResult <-
              timeSequenceEncored(start_date, end_date, time_unit, num_seq)

            if (getStatusOfProducingTestAnswer(returnStatus = TRUE)) {
              answer <- testResult
              save(list = ls(),
                   file = getExtDataFilePathOfDevelopingPkg(testEnvFileName, pkgName))
            }

            expect_equal(testResult, answer)
          })