tests/testthat/test-md5sum.R

In swagger: Dynamically Generates Documentation from a 'Swagger' Compliant API

skip_on_cran()

# only test on `"mac"`
skip_on_os(
  setdiff(
    c("windows", "mac", "linux", "solaris"),
    "mac"
  )
)

skip_if_not_installed("jsonlite")

# read from latest major version installed
swagger_ui_version <- jsonlite::read_json(
  file.path(swagger_path(), "package.json")
)$version

files_location <- swagger::swagger_path()
tmpd <- file.path(tempdir(), "__swagger_rel")
dir.create(tmpd)
on.exit({
  unlink(tmpd)
}, add = TRUE)

for (f in dir(files_location)) {
  # do not test shimmed files
  if (f %in% c("index.html")) {
    next
  }
  test_that(paste0(f, " md5 sum in package match swagger version released md5sum"), {
    dld <- download.file(paste0("https://unpkg.com/swagger-ui-dist@", swagger_ui_version, "/", f),
                         file.path(tmpd, f),
                         mode = "wb",
                         quiet = TRUE)
    expect_equivalent(tools::md5sum(file.path(files_location, f)),
                      tools::md5sum(file.path(tmpd, f)),
                      info = paste0("file: ", f))
  })
}