tests/testthat/test_get_kolada_obj.R

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

context("get_kolada_obj")

test_that("Incorrect URL gives an error", {
  expect_error(get_kolada_obj("asdasdas21313asdasd", "kpi1"))
})

test_that("Output is correct S3 class", {
  expect_equal(class(get_kolada_obj("lund","municipality")), "kolada")
  expect_equal(class(get_kolada_obj("fisk","kpi")), "kolada")
  expect_equal(class(get_kolada_obj("lund","ou")), "kolada")
})