add tests for .mime_cmd()

yihui · Oct 2, 2024 · 45a01c5 · 45a01c5
1 parent 021b3bd
commit 45a01c5
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/tests/test-ci/test-base64.R b/tests/test-ci/test-base64.R
@@ -0,0 +1,9 @@
+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')
+  (lapply(fs, .mime_cmd) %==% unname(m[file_ext(fs)]))
+})