tests/testthat/test-kitten.R

In dide-tools/kitten: Download Kittens From the Internet

context("kitten")

test_that("basic use works", {
  dest <- kitten(300, 200)
  expect_is(dest, "character")
  expect_equal(length(dest), 1)
  expect_true(file.exists(dest))

  expect_equal(unname(tools::md5sum(dest)),
               "cc717c3483c98a856a8a4798b38df969")
})

test_that("invalid input", {
  expect_error(kitten(-10, -20), "Must have positive sizes")
})