Protect test for read_exif + write_exif

elipousson · Sep 17, 2024 · 303ce4c · 303ce4c
1 parent bfbf2fe
commit 303ce4c
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/testthat/test-read_exif.R b/tests/testthat/test-read_exif.R
@@ -1,5 +1,10 @@
 test_that("read_exif and write_exif works", {
   skip_on_ci()
+
+  exiftool_v <- exiftoolr::exif_version()
+
+  skip_if_not(is.character(exiftool_v))
+
   path <- system.file("images", package = "exiftoolr")
 
   photos <- read_exif(path)