tests/test-ci/test-base64.R

In xfun: Supporting Functions for Packages Maintained by 'Yihui Xie'

library(testit)

assert('.mime_cmd() works', {
  # test some common file types
  fs = list.files(R.home('doc'), '[.](html|pdf|png)$', recursive = TRUE, full.names = TRUE)
  fs = fs[!duplicated(file_ext(fs))]
  m = list(html = 'text/html', pdf = 'application/pdf', png = 'image/png')
  types = unname(m[file_ext(fs)])
  (lapply(fs, .mime_cmd) %==% types)
  (!is_windows() || lapply(fs, .mime_cmd, use_file = FALSE) %==% types)
})