tests/testthat/test-download_files.R

In OliEllTay/londonHouses: Analyse London House Prices

context("Downloading files")

test_that("we can turn hypthated strings to snakes",{
  expect_equal(hyphenated_to_snake("an-example_string"), "an_example_string")
  expect_equal(hyphenated_to_snake("stringWithNoHyphens"), "stringWithNoHyphens")
  expect_equal(hyphenated_to_snake("string-with_mixture.of.things"), "string_with_mixture.of.things")
})

test_that("we can get the file type from a url",{
  expect_equal(url_file_type("example.xls"), ".xls")
  expect_equal(url_file_type("example.file.csv"), ".csv")
  expect_equal(url_file_type("no_file_type"), "")
})

test_that("file names are collected from urls",{
  expect_equal(url_to_file_name("http://some_site.com/download/some-file.csv"), "some_file.csv")
})

test_that("download_data_file places a file in the correct directory", {
  test_url <- "https://data.london.gov.uk/download/average-income-tax-payers-borough/392e86d4-f1d3-4f06-a6a5-7fcd0fd65948/income-of-tax-payers.xls"
  new_file_path <- download_data_file(test_url)
  expect_true(file.exists(new_file_path))
  expect_gt(file.size(new_file_path), 0)
  expect_true(grepl("data-raw", new_file_path))
})