tests/testthat/test-get_regions.R

test_that("get regions works", {
  correct_result <- "Uganda"

  my_result <- get_regions(region_type = "country", key = "6qqv2oh5smkm")

  expect_true(correct_result %in% my_result$name)
})
sjmarks/Birdr documentation built on May 12, 2020, 5:48 p.m.