tests/testthat/test_get_data.R

In Safvenberger/Lab5RT: An API package for getting data from Kolada

context("get_data")

test_that("Too much data gives an error", {
  expect_error(get_data(kpi ="N00945", year = "2010"))
})

test_that("Wrong input generates an error",{
  expect_error(get_data(kpi = "N00945", "1280", 2010))
  expect_error(get_data(kpi = "N00945", 1280, "2010"))
  expect_error(get_data(kpi = 5, "1280", "2010"))
})


test_that("Incorrect URL gives an error",{
  expect_error(get_data("Nasdaa00945", "12y801x", "20101111asd111111"))
  expect_error(get_data("N0!0 945a", "aaa!a1280", "2010"))
  expect_error(get_data("N00945", "1280!aaaXXXX !a"))
})