tests/testthat/test_utils.R

In kiwisR: A Wrapper for Querying KISTERS 'WISKI' Databases via the 'KiWIS' API

context("Testing functions in utils.R")

test_that("check_hub accepts defaults and returns URL", {
  swmc_stat <- check_hub("swmc")
  kist_stat <- check_hub("kisters")
  quint_stat<- check_hub("quinte")

  expect_true(is.character(swmc_stat))
  expect_true(is.character(kist_stat))
  expect_true(is.character(quint_stat))
})

test_that("check_hub returns error if hub is not a character", {
  expect_error(check_hub(1234))
})

test_that("check_date returns error if start/end date cannot be parsed", {
  expect_error(check_date("2019-0222-01", "2018-01-01"))
  expect_error(check_date("2019-01-01", "2019-0222-01"))
  expect_error(check_date("2019-0222-01", "2019-02222-05"))
})

test_that("check_date returns error if start_date > end_date", {
  expect_error(check_date("2019-01-01", "2018-01-01"))
})