tests/testthat/test-get_file.R

In gridtext: Improved Text Rendering Support for 'Grid' Graphics

test_that("get_file works", {
  # skip test on cran because the url could be broken in the future
  skip_on_cran()
  # get_file returns raw data if it's an url and a character path if it's
  # a local path. That's why we test it with the function read_image that calls it
  expect_identical(
    read_image("https://upload.wikimedia.org/wikipedia/commons/6/62/Biedronka.drs.png"),
    read_image("../figs/test_image.png")
  )
})