tests/testthat/test_population.R

In Jorisvdoorn/lab5group8: This package connects to the Kolada web-api and shows the data in an app

context("population")

test_that("population rejects errounous input", {
  expect_error(population_mod <- population$new("Municipality"))
})

test_that("class is correct", {
  population_mod <- population$new()
  
  expect_true(class(population_mod)[1] == "population")
})