tests/testthat/test-distmap.R

In UBC-MDS/weatheR: Weather functions using the openweathermap.org API

context("Testing distmap")

api <- '02c3680b276051044255784768becd85'
a <- content(GET(paste0("http://api.openweathermap.org/data/2.5/weather?q=toronto&APPID=",api)))
city1 <- 'vancouver'
city2 <- 'toronto'

# This test validates the api
test_that("Validate api", {
  expect_equal(a$name,"Toronto")
})

# This test the distance is correct
test_that("Check distance between cities", {
  expect_equal(distmap(api,city1,city2),"The distance between vancouver and toronto is 3398900.0286213 km")
})