tests/testthat/test-supported_variables.R

In stijnvanhoey/wateRinfo: Download Time Series Data from Waterinfo.be

context("supported_variables")

test_that("variables in en and nl", {
  vars_nl <- supported_variables("nl")
  vars_en <- supported_variables("en")

  expect_is(vars_nl, "data.frame")
  expect_is(vars_en, "data.frame")
  expect_true("afvoer" %in% vars_nl$variable_nl)
  expect_true("discharge" %in% vars_en$variable_en)
  expect_false("discharge" %in% vars_nl$variable_nl)
  expect_false("afvoer" %in% vars_en$variable_en)
})


test_that("variables in en and nl", {
  freqs <- supported_frequencies("afvoer")

  expect_is(freqs, "character")
  expect_true("15min" %in% freqs)
})


test_that("datasource support of identifiers", {
  expect_equal(resolve_datasource(station_no = "xxxxxx-1066"), 4)
  expect_equal(resolve_datasource(station_no = "xxxxxx-1072"), 4)
  expect_equal(resolve_datasource(station_no = "xxxxxx-1073"), 4)
  expect_equal(resolve_datasource(station_no = "xxxxxx-1074"), 4)
  expect_equal(resolve_datasource(station_no = "xxxxxx-1095"), 4)
  expect_equal(resolve_datasource(station_no = "xxxxxx-1069"), 4)
  expect_equal(resolve_datasource(station_no = "xxxxxx-1060"), 4)
  expect_equal(resolve_datasource(station_no = "xxx-SF-xxx"), 4)
  expect_equal(resolve_datasource(station_no = "xxxxxx"), 1)
})


test_that("extract tsgroup identifiers for variables", {
  expect_is(
    resolve_timeseriesgroupid("discharge")$timeseriesgroup_id,
    "integer"
  )
  expect_is(
    resolve_timeseriesgroupid("rainfall")$timeseriesgroup_id,
    "integer"
  )
})


test_that("handling when variable is not available", {
  expect_error(supported_frequencies("iamnotavariable"),
    regexp = "The provided variable is not available"
  )
  expect_error(is_supported_variable("iamnotavariable"),
    regexp = "The provided variable is not available"
  )
  expect_error(resolve_timeseriesgroupid("iamnotavariable"),
    regexp = "The provided variable is not available"
  )
})


test_that("handling when frequency for this var is not available", {
  expect_error(resolve_timeseriesgroupid("rainfall", "3.5min"),
    regexp = "provided frequency .* is not available"
  )
})

test_that("checking all ids are unique linked to var-freq combination", {
  lookup_file <- system.file("extdata", "lookup_timeseriesgroup.txt",
    package = "wateRinfo"
  )
  lookup <- read.csv(lookup_file, sep = " ", stringsAsFactors = FALSE)

  nl_ids <- lookup %>%
    select(variable_nl, frequency_nl) %>%
    duplicated() %>%
    sum()

  en_ids <- lookup %>%
    select(variable_en, frequency_en) %>%
    duplicated() %>%
    sum()

  expect_equal(nl_ids, 0)
  expect_equal(en_ids, 0)
})


test_that("handling when language is not available", {
  expect_error(supported_variables("iamnotalanguage"),
    regexp = "nl and en are the supported languages"
  )
})