tests/testthat/test_rdfHelpers.R

In rabutler/RWDataPlot: Read, manipulate, and plot data from RiverWareTM (riverware.org), that is saved as rdf (RiverWare data format) files

library(RWDataPlot)
context('check rdf helper functions')

test_that("rdfSlotToMatrix gets correct dimensions for matrix", {
  expect_equal(dim(rdfSlotToMatrix(keyRdf,'Powell.Pool Elevation')),c(240,25))
  expect_equal(dim(rdfSlotToMatrix(sysRdf,'SummaryOutputData.LBShortageConditions')),c(20,25))
})

test_that('getTimeSpan returns expected dates', {
  # keyRdf includes monthly data so it starts in January. 
  # sysRdf includes annual data, so it starts in December.
  expect_equal(getTimeSpan(keyRdf), c('start' = '2017-1-31 24:00', 'end' = '2036-12-31 24:00'))
  expect_equal(getTimeSpan(sysRdf), c('start' = '2017-12-31 24:00', 'end' = '2036-12-31 24:00'))
})

test_that('getTimeSpan returns correct length', {
  expect_equal(length(getTimeSpan(keyRdf)),2)
})

test_that('getSlotsInRdf returns expected slot names', {
  # use all and check if it's in the list. order does not matter.
  expect_equal(all(getSlotsInRdf(keyRdf) %in% c('Powell.Pool Elevation', 
                                                'Mead.Pool Elevation',
                                                'Powell.Outflow')),TRUE)
})