tests/testthat/test_updateTimeUnit.R

In EncoredTechR/baseEncored: Base R packages for Encored Technologies

context("Test updateTimeUnit.PowerUsage")

suppressPackageStartupMessages(library(dplyr))
pkgName <- getPackageName()

test_that(desc = "Convert human date to time class with selected timezone",
          code = {
            usage15min <-
              getExtDataFilePathOfInstalledPkg("sample_PowerUsage_multi-sites_15min.rds",
                                               pkgName) %>%
              readRDS()
            usageHourlyUpdated <-
              updateTimeUnit.PowerUsage(usage15min, "hourly")
            usageHourly <-
              getExtDataFilePathOfInstalledPkg("sample_PowerUsage_multi-sites_hourly.rds",
                                               pkgName) %>%
              readRDS()

            getTimeUnit.PowerUsage(usageHourlyUpdated) %>%
              expect_equal(getTimeUnit.PowerUsage(usageHourly))

            getPowerUnit.PowerUsage(usageHourlyUpdated) %>%
              expect_equal(getPowerUnit.PowerUsage(usageHourly))

            expect_equivalent(usageHourlyUpdated, usageHourly)
          })