tests/testthat/test-data.R

In poissonconsulting/kootqlt: West Kootenay Discharge, Elevation and Temperature Data Import

context("data")

test_that("data", {

 expect_identical(checkr::check_data(kootqlt::station, values = list(
    Station = "",
    StartDate = c(Sys.Date(), NA),
    EndDate = c(Sys.Date(), NA),
    Frequency = factor(c(1, NA)),
    Variable = factor(1),
    Units = c("m", "degC", "m3.s-1"),
    LowerLimit = c(1, NA),
    UpperLimit = c(1, NA),
    Percent = c(1, NA),
    Absolute = 1,
    StationCode = c("", NA),
    Location = "",
    Organization = "",
    StationID = c("", NA)),
    key = "Station"),
  kootqlt::station)
  expect_identical(checkr::check_levels(kootqlt::station$Frequency, levels = c("Hourly", "Daily")), kootqlt::station$Frequency)

  expect_identical(checkr::check_levels(kootqlt::station$Variable, levels = c(
    "Air Temperature", "Discharge", "Elevation", "Stage", "Water Temperature")),
    kootqlt::station$Variable)
})