tests/testthat/test-geocode_address.R

In purposeanalytics/lemr: Low-end of Market Rental Monitor

test_that("geocode_address geocodes an address and returns bing fields", {
  # Skip tests for now since we went over on bing usage oops
  skip_if(TRUE)
  skip_if_offline()
  skip_on_ci()

  res <- geocode_address("100 Queen St W Toronto ON", quiet = TRUE)

  expect_identical(res, structure(list(
    bing_status_code = 200L, bing_address = "100 Queen St W",
    bing_municipality = "Toronto", bing_postal_code = "M5C 1S6",
    bing_method = "Rooftop", bing_confidence = "Medium", bing_latitude = 43.653512,
    bing_longitude = -79.383987
  ), row.names = c(NA, -1L), class = c(
    "tbl_df",
    "tbl", "data.frame"
  )))
})

test_that("geocode_address returns a 404 and NAs if address can't be geocoded", {
  # Skip tests for now since we went over on bing usage oops
  skip_if(TRUE)
  skip_if_offline()
  skip_on_ci()

  res <- geocode_address("25 Grandstand Toronto ON", quiet = TRUE)
  expect_identical(res, structure(list(
    bing_status_code = 404, bing_address = NA, bing_municipality = NA,
    bing_postal_code = NA, bing_method = NA, bing_confidence = NA,
    bing_latitude = NA, bing_longitude = NA
  ), row.names = c(
    NA,
    -1L
  ), class = c("tbl_df", "tbl", "data.frame")))
})

test_that("geocode_address returns a 401 and NAs if the token is invalid", {
  # Skip tests for now since we went over on bing usage oops
  skip_if(TRUE)
  skip_if_offline()
  skip_on_ci()

  res <- geocode_address("101 Queen Street W Toronto ON", token = "lemr", quiet = TRUE)
  expect_identical(
    res,
    structure(list(
      bing_status_code = 401L, bing_address = NA, bing_municipality = NA,
      bing_postal_code = NA, bing_method = NA, bing_confidence = NA,
      bing_latitude = NA, bing_longitude = NA
    ), row.names = c(
      NA,
      -1L
    ), class = c("tbl_df", "tbl", "data.frame"))
  )
})

test_that("geocode_address errors if token is '' (if the environment variable isn't set) or NULL}", {
  # Skip tests for now since we went over on bing usage oops
  skip_if(TRUE)
  expect_error(geocode_address("101 Queen Street W Toronto ON", token = ""), "No token provided")

  expect_error(geocode_address("101 Queen Street W Toronto ON", token = NULL), "No token provided")
})

test_that("geocode_address can geocode an address whose street name needs to be converted to numeric", {
  # Skip tests for now since we went over on bing usage oops
  skip_if(TRUE)
  skip_if_offline()
  skip_on_ci()

  res <- geocode_address("88 E Forty Second St, Hamilton, ON", quiet = TRUE)
  expect_identical(res, structure(list(
    bing_status_code = 200L, bing_address = "88 E 42nd St",
    bing_municipality = "Hamilton", bing_postal_code = "L8T",
    bing_method = "Rooftop", bing_confidence = "High", bing_latitude = 43.233584,
    bing_longitude = -79.834694
  ), row.names = c(NA, -1L), class = c(
    "tbl_df",
    "tbl", "data.frame"
  )))
})

test_that("convert_street_name_to_numeric converts a street name to its numeric version", {
  expect_identical(convert_street_name_to_numeric("88 Forty Second St"), "88 42nd St")

  expect_identical(convert_street_name_to_numeric("100 Queen St"), "100 Queen St")
})

test_that("convert_street_name_to_numeric can convert addresses with a street name over 100", {
  expect_identical(convert_street_name_to_numeric("5405 S One Hundred Forty Fourth St"), "5405 S 144th St")
})

test_that("convert_street_name_to_numeric handles 'and'", {
  expect_identical(convert_street_name_to_numeric("5405 S One Hundred and Forty Fourth St"), "5405 S 144th St")
})

test_that("convert_street_name_to_numeric can handle 'hundredth' without 'one'", {
  expect_identical(convert_street_name_to_numeric("5405 S Hundredth and Forty Fourth St"), "5405 S 144th St")
})

test_that("convert_range_to_single_address takes the first address from a range", {
  expect_identical(convert_range_to_single_address("1187-1189  QUEEN ST E"), "1187  QUEEN ST E")
})

test_that("convert_street_name_to_numeric leaves address ranges intact", {
  expect_identical(convert_street_name_to_numeric("1187-1189  QUEEN ST E"), "1187-1189 QUEEN ST E")
})

test_that("convert_range_to_single_address leaves an address without a range intact", {
  address <- "1187 Queen St E"
  expect_identical(convert_range_to_single_address(address), address)
})

test_that("geocode_address geocodes a range of addresses properly, by converting to a single address", {
  # Skip tests for now since we went over on bing usage oops
  skip_if(TRUE)
  res <- geocode_address("1187-1189  QUEEN ST E Toronto ON")
  expect_identical(res, structure(list(
    bing_status_code = 200L, bing_address = "1187 Queen St E",
    bing_municipality = "Toronto", bing_postal_code = "M4M 1L6",
    bing_method = "Rooftop", bing_confidence = "High", bing_latitude = 43.6627063,
    bing_longitude = -79.3316341
  ), row.names = c(NA, -1L), class = c(
    "tbl_df",
    "tbl", "data.frame"
  )))
})