tests/testthat/test-utils.R

context("utils")

test_that("download_file", {
  url <- "https://raw.githubusercontent.com/richfitz/storr/master/DESCRIPTION"
  expect_warning(x <- download_file(url), NA)
  expect_true(file.exists(x))
  expect_equal(unname(read.dcf(x)[, "Package"]), "storr")
})
richfitz/jiffy documentation built on May 27, 2019, 8:18 a.m.